
AND GAME 








collection 



10 AWESOME 





ORIGINAL^UNUSUAL 
SUPERS) FANTASTIC 



COMPUTER PUZZLES 
AND GAMES 







Y O L A T I M 

COPYRIGHT © 1984 BY SCHOLASTIC INC. ALL RIGHTS RESERVED 




5 
SIX SIMPLE TIPS FOR PROGRAMMERS 

7 

AMAZIN' 

That's what youll say if you set through this maze. 

For Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

25 

poison ivy 

Can you get out of a "prickly" situation before the Poison Ivy gets you? 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

42 

WORD SCRAMBLE 

A mind-teasing game of mixed-up letters. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

56 

SECRET CODES 
Encode and decode your private correspondence. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

69 

GRAPHIC FANTASY 

Hours of computer-generated graphics. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

79 
WATER BALLOONS 
Cool off with this wet 'n wild aiming game. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

95 

MONSTER IN THE MARSH 
Choose the right path out of the marsh, or else. . . 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

113 
TEAM BATTING AVERAGE 
Whether your average is lousy or great, this program lets you know! 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

123 
THE DRAWING PROGRAM 
Become a computer Vincent Van Gogh. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

135 
MUSIC RECORDER 
Write and record songs on your computer. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

Because of the sound and sraphics requirements of some of the prosrams and the limitations of some computers, not all prosrams are 

translated for all machines. 
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SIMPLE TIPS 
FOR PROGRAMMERS 

Even the most experienced programmers make the most basic errors every once in 
awhile. To help you avoid frustrating mistakes, here are some simple programming 

reminders. 

1. 

When you type program lines into your computer, be sure to copy them exactly as 
written. Numbers, punctuation marks, and spaces are important. 

2. 

Remember to keep the alpha lock (or caps key) down while you're typing in the 

program. 

3. 

Press RETURN or ENTER after every completed program line. 

4. 

Before you run the program, save it. That way you avoid crashing the program if 

you made a typing error. 

5. 

Run the program when you finish typing it in by typing RUN and pressing the RETURN 
or ENTER key. If the computer gives you an error message, don't panic. Mistakes can 
be fixed. List the program by typing the word LIST and pressing the RETURN or ENTER 
key and double-check each line. If there is data, check to make sure you haven't 
typed any extra commas. Make sure you've typed zeros and not the letter "O." A 
foolproof way to correct a mistake is to type in the entire line again (including its line 
number). When you list the program again, you'll find the new line in place of the old. 

6. 

If you need more help, read the programming guide you received with your computer. 

It should cover most of your questions. 



PUBLISHED BY SCHOLASTIC INC. 

COPYRIGHT © 1984 BY SCHOLASTIC INC. 
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BONUS PROGRAM #1 




AMAZIN' 




AMAZIN' is what you'll say, the first time you. make it 




through this twi stirs' maze. The clock tells you your 




scare time, so you can compare? your score with the best 




score . Watch out for walls! If you collide with a wall, 




you lose. On most computers you have the choice of 




joystick control, or keyboard control. Select which one 




vol i want at the bsqinninq of the game,. If you use the 




keyboard, write the direction keys down on a piece of 




p a p e r a n d p r a c t i c e u s i n g t hem. P u s h i n g direc t. ion k e y s 




will get you where you want, to gcj, pronto: 

• 




Apple II and Apple He 




1 REM **•* AMAZIN APPLE *** 




10 GOTO 3000 




99 REM *** JOYSTICK ROUTINE *** 




1.00 IF PDL (1) < 64 THEN YI = - i . RETURN 




110 IF PDL. (1) > 192 THEN YI = 1: RETURN 




120 IF PDL <0) < 64 THEN XI == -- Is RETURN 




130 IF PDL (0) > 192 THEN XI = 1: RETURN 




160 XI =•- 0:YI == 0: RETURN 




199 REM **-* READ KEYBOARD ROUTINE ***■ 




200 XI = 0:YI = : 0:l_I == 




210 KE --= PEEK ( •- 16384)! POKE - 16368,0 




220 IF KE < 12S THEN 250 




230 IF CHR* (KE 128) ==• KT-t(LI) THEN YI = YT(LI):XI = XT (I 


.I): RETURN 


240 LI = LI + 1: IF LI < 4 THEN 220 




250 RETURN 




499 REM *•** MAIN LOOP-DRASW PLAYER CHARACTER *** 




500 XI = 0:YI ~ 0:1... I = 




5.10 CD = 3:R0 - 0:L = 




520 TI - 




530 IF YI = AND XI = THEN 550 




540 C0L0R= 0: PLOT CO - X I , RO ■- YI 




550 COLOR- 14: PLOT C0,R0 




560 IF L = 1 THEN 2000 




570 ON J 60SUB 100,200 




580 RO = RO +• Y I : CO == CO + X I 




590 IF CO > 39 THEN 1000 




600 IF RO < THEN RO = 




620 IF SCRN( C0,R0) = 15 THEN L = 1 




630 TI = TI + 1 




640 GOTO 530 




999 REM **■* SUCCESSFULLY COMPLETE MAZE •***• 




1000 TEXT : HOME : WH - TI 




1010 FOR T = 1 TO 100 




102 P R I M T ' ' Y U M A D E IT! " ; 




1040 NEXT T 




1060 IF WH < LS THEN LS ^ WH 




.1.070 HOME 




1080 PRINT TAB( 11) "YOUR SCORE IS: "WH 
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1 09C 


PR I NT 




i io<: 


PRINT TAB< 10) "THE LOW SCORE IS: "LS 




111C 


PRINT 




1 1 2C 


GOTO 2030 




1999 


REM *** RUN INTO WALL *** 




200C 


TEXT : HOME 




20 1C 


PRINT TAB< 6) "YOU RAN INTO A WALL!" 




202C 


PRINT 




203C 


PRINT TAB( 6) "PRESS ANY KEY TO PLAY AGAIN" 




204 C 


IF PEEK ( - 16368) > 127 THEN 2040 




205C 


GET DUM$ 




206C 


RESTORE 




207C 


GOTO 3120 




2999 


REM *** INTRODUCTION *** 




3000 


HOME 


• 


30 1C 


PRINT " ARE YOU USING A JOYSTICK (Y/N)?" 




3030 


IF J* = "Y" THEN J = 1: GOTO 3120 




3040 


IF J* < > "Y" THEN J = 2 




3050 


HOME 




3060 


PRINT "THE DIRECTION KEYS ARE: " 




3070 


PRINT 




3080 


PRINT "I=UP M=DOWN J=LEFT L=RIGHT" 




3090 


PRINT 




3 1 00 


PRINT "PLEASE PRESS ANY KEY TO BEGIN. " 




3 1 1 


GET N* 




3115 


DIM KT$<3) ,XT<3) ,YT<3) 




3119 


REM *** INITIALIZE VARIABLES *** 




3 1 20 


GR : POKE -- 16302,0: CALL - 1998: LS = 400 




3130 


COLOR- 15 




3139 


REM *** DRAW MAZE *** 




3140 


FOR RO = 1 TO 47 




3 1 50 


READ X1,X2.Y 




3.160 


HLIN XI, X2 AT Y 




3170 


NEXT RO 




3180 


FOR CO = 1 TO 45 




3190 


READ Y1,Y2,X 




3200 


VLIN Y1,Y2 AT X 




3210 


NEXT CO 




T O *? ("' 


FOR IN = 1 TO 44 




3230 


KOL = INT ( RND (1) * 15) + 1: IF KOL = 15 THEN 3230 




3240 


COLOR= KOL 




3250 


READ X,Y 




3260 


PLOT X,Y 




3270 


NEXT IN 




3279 


REM *** INITIALIZE DIRECTION VARIABLES *** 




3290 


FOR I = TO 3: READ KT* < I ) : NEXT 




3300 


FOR I = TO 3: READ XT ( I ) : NEXT 




33 1 


FOR I = TO 3: READ YT ( I ) : NEXT 




3320 


GOTO 500 




5000 


DATA 5 , 39 , , 35 , 39 , 1 , 35 , 39 , 2 , 5 , 1 , 3 , 35 , 39 , 3 




5010 


DATA 30 , 33 , 5 , , 1 3 , 8 , , 6 , 9 , 32 , 39 , 9 , 35 , 39 , 1 , 9 , 1 3 , 1 1 , 30 ,,33,13 




5020 


DATA 4.11, 15,4, 11 , 16,4, 11 ,18,4, 11 , 19, 13, 16, 19,23,25, 19 




5030 


DATA 23 , 25 , 20 ,29,39,, 20 , 29 , 39 , 2 .1. , 27 , 39 , 22 , 5 , 9 , 23 




5040 


DATA 27 , 39 , 23 , 25 , 30 , 24 , 25 , 30 , 25 , , 7 , 26 , 9 , 1 1 , 26 




5050 


DATA , 7 , 27 , 9 , 1 .1. , 27 ,19, 30 , 28 , 34 , 36 , 28 , 34 ,, 36 , 29 




5060 


DATA 4,11, 30 ,17,34,32,17, 34 , 33 , 4 , 6 , 34 ,8,10, 34 




5070 


DATA 37 , 39 , 36 , 4 , 6 , 40 , 8 , 27 , 40 „ 4 , 6 , 4 1 , 8 , 27 , 4 1 , 33 , 36 , 4 1 




5080 


DATA 33 , 36 , 42 , 4 , 27 , 44 , , 39 , 47 




5090 


DATA , 47 , , , 7 , 1 , 1 5 , .1. 9 , 4 , 35 , 39 , 4 , , 2 , 5 , 15 , 1 9 , 5 
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5 1 00 


DATA 


35 


5110 


DATA 


35 


5 1 20 


DATA 


4, 


5130 


DATA 


0, 


5140 


DATA 


6, 


5 1 50 


DATA 


0, 


5160 


DATA 


34 


5170 


DATA 


11 


5180 


DATA 


6, 


5190 


DATA 






15,37 


,16 


5200 


DATA 


6, 


52 1 


DATA 


26 


5220 


DATA 


I, 



,39, 6, 35, 39, 8, 11, 19, 9, 0,2, 10, 11, 19, 10 

, 39 , 1 , 1 1 ,22 , 1 1 , 24 , 27 , 1 1 , 1 9 , 39 , 1 3 , 27 , 33 , 1 4 

10, 15,4,10, 16, 16, 19,16, 14, 16, 17,23,31 , 17,12, 14, 18,20,23, 18 

12,19,19,21,19,17,19,20,15,17,21,34,37,21 ,2,3,22 

1 5 , 22 , 26 , 27 , 24 , 36 , 39 , 24 , 1 6 , 1 8 , 25 , 26 , 27 , 25 

1 6 , 26 , 34 , 37 , 27 , 26 , 27 , 29 , 5 , 1 3 , 30 , 26 , 27 , 30 

,44,30,36,40,33,30,31 ,34, 1 1 , 19,35, 1 1 , 19,36 

, 47 , 39 

1,7,1,8,1,9,1,6,2,7,2,8,2,9,2 

, 11 ,38,11,37,12,38,12,37, 13,38,13,37,14,38,14,37, 15,38, 

,38, 16,37, 17,38, 17,37, 18,38, 18,37, 19,38, 19 

1 7 , 7 , 1 7 , 8 , 1 7 , 5 , 35 , 5 , 36 , 5 , 37 , 5 , 38 , 5 , 39 , 9 , 35 , 9 , 36 , 9 , 37 , 9 , 39 

, 26 , 27 , 26 , 28 , 26 , 26 , 27 , 27 , 27 , 28 , 27 

J , L , M , , - 1 , 1 , , - 1 , , , 1 



Atari 

1 REM *•** AM A Z IN' ATARI *** 
10 GOTO 3000 

99 REM **•* JOYSTICK ROUTINE •*** 

100 JV=GTICKCO) 

110 IF JV=14 THEN X 1=0: Y I =-- 1 : RETURN 

120 IF JV~-.13 THEM X 1=0: YI = 1 ; RETURN 

1 30 I F J V= 1 1 THEN X I - 1 : Y I -0 ;. RETURN 

140 IF JV=7 THEN X 1=1 : YI=0: RETURN 

150 Xl'=--0i YI=0 

160 RETURN 

199 REM -**# READ KEYBOARD ROUTINE ***- 

200 X I —0: YI=*0 
210 K=T'EEK<764> 
220 FOR D--1 TO 15 
230 NEXT D 

240 IF K>255 THEN 210 

250 I F k> 1 3 THEN X I -~0 1 Y I ==••■■ 1 s RETURN 

260 IF k>37 THEN X 1=0; YI== 1 : RETURN 

270 I F K= 1 THEN X I ~— 1 : Y I =0 : RETURN 

280 I F K--0 THEN X I = 1 : Y I --=0 s RETURN 

499 REM •*** MAIN LOOP -DRAW PLAYER CHARACTEf 

500 H1--2: H2--0 
510 CO =2 

520 L--0 

530 RQ=0 

540 COLOR 

550 PLOT HI,!- 1 2 

560 COL.. OR 2 

570 PLOT CO.EO 

580 IF L==l THEN 2000 

590 H 1 =•- C " ! -1 2 ■-■■ R ;; T I = T I ■■!■■ 1 

600 ON J GOSUB 100,200 

6 1 R ~" R •■!■■ Y I ; C -- C ■ i X I 

620 IF C0>39 THEN 10,00 

630 IF R0<0 THEN R0~0 



#**■ 



....... 



LULH ( 



.-■J „ KU ., '.- 



650 IF C-l THEN L=: 
660 POKE 752,6 
67<. : PRINT CHR:f : ( i 2IvP 
"'PTMT '■'■ 
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720 GOTO 540 




999 REM *** SUCCESSFULLY COMPLETE MAZE ■*** 




1000 GRAPHICS 




1010 FOR T=i TO 100 




1020 PRINT "YOU MADE IT! "; 




1030 NEXT T 




1 040 PR I NT CHR* ( 1 25 ) 




1050 PRINT "YOUR SCORE IS: " ; TI 




1060 IF TKLS THEN LS=TI 




1070 PRINT 




1080 PRINT "LOW SCORE IS; " ; LS 




1090 PRINT 




1100 GOTO 9030 




1999 REM •*** RUN INTO WALL. *** 




2000 GRAPHICS 




2010 PRINT "YOU RAN INTO A WALL 1 " 




2020 PRINT 




2030 PRINT "PRESS (RETURN) TO F'LAY AGAIN. " 




2040 GOSUB 4*500 




2050 RESTORE 




2060 GOTO 3180 




2999 R[;:;|v| *.*.*. INTRODUCTION *** 




3000 DIM J* (3) ,R$ (3) 




3010 PRINT CHR*(125) 




3020 F :, RINT "TYPE YOUR ANSWER" 




3030 PRINT "THEN PRESS (RETURN)," 




3040 PRINT 




3050 PRINT "ARE YOU USING A JOYSTICK (Y/N)":; 




3060 INPUT J-$ 




30/0 IF J::j::^"Y" OR JI^"YES" Ti-FN J=l 




3080 IF ..'J"-l THEN 3150 




3090 .T:~? 




3100 PRINT CHR:t-(125) 




3 1 i P R I N T ' ' T H E D I f : i E C T 1 N i <. E YE!; ARE;" 




3120 PRINT 




3130 PRINT "I -UP M-DGWN JH....EFT L=RIGHT" 




3140 PRINT 




3150 PRINT "PLEASE PRESS (RETURN) TO BEGIN., " 




3160 GOSUB 4000 








31 70 1 H-999 




3 ISO T1>0 




3190 GRAPHICS 3 




■.:.<x-U\. } ■:::>!:::. ! L.Lm.-Lm \ \. } < } K J ■+ '..■> 

3210 COLOR 1 




3 2 20 READ A,B,C,D 




3230 IF A ~"-l THEN 500 




3240 PLOT A , B 




3250 DRAWTO C ,■ D 




3260 GOTO 3220 




3999 REM **■* WAIT ROUTINE *** 




4000 POKE 764,255 




4010 IOPEEK (764) 




4020 IF' K-255 THEN 4010 




4030 RFTI !RN 




5000 DATA , ,, , 1 9 , 4 „ , 39 , , 9 , 1 ., 9 , 1 4 , 1 6 , 1 , 1 6 , 5 




53OIO DATA 95 , i , 9^ .. 4 30 .. 1 .. 30 .. 3 . 34 , 1 . 34 - 3 




•.:::■ /■■■, -~,\ 1-; r\ .'■. • !■ .■--. /| -r:' / -7 si ' :•■ /1 •: •; •; -:;■ •; r- } t:r '"■> -1 -'• -\ ■; /.. * 7. c> ~r ■""= C"> 


, A. .39 3, 39. 19. ■! 9 , 


4 , j. :, ; :: , 9 , 32 ., 4 , -32 , 7 
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5030 DATA 37 , 3 ,37,1 , 3B , 3 , 38 , 3 ,9,5,10,5,14,5,14,5, 23 ,5,23,5,7,6,8,6,2,7 

, 4 , 7 

5040 DATA 20 , 7 , 20 ,12,24,7,37,7,24,7,24,11 

5050 DATA 30 , 8 , 30 , 8 , 7 , ? , 7 , 1 4 , 9 , 9 , 9 , 1 4 , 1 2 , 9 , 17 , 9 , 1 8 , 9 , 1 8 , ? v 1 9 , 8 , 1 9 , 9 , 23 , 



O "i -:' CD 
■ , .,■_•.„■ , ■ 



5060 DATA 32 , 9 , 32 , 9 , 1 , 10 ,2,10,18,10, 19 , 10 , 28 , 10 , 28 , 10 

5070 DATA 19, 1 1 , 19, 1 1 ,27, 1 1 ,27,16,27,11,34,11,34,11,34,15,12,12,16, 1 

3 , 1 3 , 3 , 1 3 ,4,13,4,14 

5080 DATA 21 ,13,21, 13,4,14,7,14,9,14, 18,14,21,14,24,14,24.15,24,15 

5090 DATA 30 , 14 , 32 , 14 , 32 , 14 , 32 , 18 , 36 , 14 , 36 , 15 , 4 , 16 , 27 , 16 , 35 , 16 , 35 , 1 6 

5100 DATA 0, 19,39, 19 

5110 DATA --I , 1 ,--1 , 1 

Commodore 64 

1 REM *** AMAZIN' 64 *** 
10 GOTO 3000 

99 REM *** JOYSTICK ROUTINE *** 

100 JV=PEEK<563£1> 
110 JV=15-(JVAND15) 

120 IF JV=1 THEN X 1=0 :YI=~1: RETURN 

130 IF JV=£ THEN X 1=0: YI = 1 : RETURN 

140 IF JV=4 THEN XI=-1 : YI=0: RETURN 

150 IF JV=S THEN XI=1 :YI=0: RETURN 

160 XI=0:YI=0:RETURN 

199 REM *** READ KEYBOARD ROUTINE *** 

£00 XI=0:YI=0:LI=0 

£10 GET KE*:IF KE*=""THEN RETURN 

££0 IF KE*=KT*(LI)THEN YI=YT (LI ): XI = XT (LI ): RETURN 

£30 LI=LI + lsIF LK4 THEN ££0 

£40 RETURN 

499 REM *** MAIN LOOP-DRAW PLAYER CHARACTER *** 

500 H1=3:H£=0 
510 CO=3:RO=0:L=0 

5£0 T I *=" 000000" 

530 IF C0>39 THEN i000 

540 IF RO<0 THEN RO=0 

550 POKE CB+H1+40*H£,£ 

560 POKE CB+CO+40*RQ,i3 

570 POKE SB+CO+40*RC, 31 

580 IF L=i THEN £000 

590 H1=C0:H£=R0 

600 ON J GOSUB 100, £00 

610 RO=RO+YI:CO=CO+XI 

6£0 IF PEEK (SB+CO+40*RO) =160 THEN L=l 

630 PRINT CHR*(i9)CHR*(159>TAB(36)RlGHT*(TI*,3) 

640 GOTO 530 

999 REM *** SUCCESSFULLY COMPLETED MAZE *** 

1000 PRINT CHR*(147) :WH*=TI* 
1010 FOR T=l TO 100 

10£0 PR I NT "YOU MADE 111" "; 

1030 POKE 53£S0, INT < RND < 1 > *16> +1 

1040 NEXT T 

1050 POKE 53£ai, 3 

1060 IF VAL (RIGHT* (WH*, 3) ) <VAL(LS*> THEN LS*=RIGHT* (WH*, 3) 

1070 PRINT CHR*(147)CHR*(144) 

1080 PRINT TAB(11)"Y0UR 5CDRE IS: "RIGHT* (WH*, 3) 

1090 PRINT 

1100 PRINT TAB (10) "THE LOU SCORE IS:"i_S* 

1110 PRINT 
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1120 GOTO 2030 

1999 REM *** RAN INTO WALL *** 

£000 PRINT CHR*<147)CHR*<144) 

2010 PRINTTAB<10) "YOU RAN INTO A WALL!" 

2020 PRINT 

£030 PRINTTAB<6) "PRESS (SHIFT) TO PLOY AGAIN. " 

£040 GOSUB 4000 

£050 RESTORE 

£060 GET DUM*:IF DUM*<)""THEN £060 

£070 GOTO 31£0 

£999 REM *** INTRODUCTION *** 

3000 PRINT CHR*<147) 

3010 PRINT " ARE YOU USING A JOYSTICK <Y/N)?" 

30£0 GET J*: IF J*-" "THEN 3020 

3030 IF J*="Y" THEN J=l:GOTO 3120 

3040 IF J*=<> ,, Y" THEN J=£ 

3050 PRINT CHR*(147) 

3060 PRINT "THE DIRECTION KEYS ARE:" 

3070 PRINT 

3080 PRINT "I=UP M=DOWN J=LEFT L=RIGHT" 

3090 PRINT 

3100 PRINT "PLEASE PRESS (SHIFT) TO BEGIN." 

3110 GOSUB 4000 

3119 REM *** INITIALIZE VARIABLES *** 

3 1 £0 SB= 1 0£4 : CB=55£96 : LS*= " £00 " 

3130 POKE 53£80, 6: POKE 53£81,£:PDKE 650,128 

3139 REM *** DRAW MAZE *** 

3140 PRINT CHR*(147) 
3150 READ CO, A, B 

3160 IF CO=-l THEN 3££0 

3170 FOR RO=A TO B 

3180 POKE SB+CO+40*RD, 160 

3190 POKE CB+CD+40*RD, 1 

3200 NEXT RO 

3210 GOTO 3150 

3220 READ RO, A, B 

3230 IF RO=-l THEN 3230 

3240 FOR CO=A TO B 

3250 POKE SB+CD+40*RD, 160 

3260 POKE CB+CO+40*RD, 1 

3270 NEXT CO 

3280 GOTO 3220 

3290 READ RO, A, B 

3300 IF RO=-l THEN 3380 

3310 FOR CO=A TO B 

3320 Q=INT(RND<1)*16)+1 

3330 IF Q<3 OR Q>7 THEN 3320 

3340 POKE SB+CO+40*RO,S1 

3350 POKE CB+CO+40*RO, Q 

3360 NEXT CO 

3370 GOTO 3290 

3380 READ RO, CO, CH 

3390 IF RO=-i THEN 3440 

3400 POKE SB+CG+40*RG, CH 

3410 POKE CB+CO+40*RD, 158 

3420 PRINT CHR$U44) 

3430 GOTG 3380 

3439 REM *** INITIALIZE DIRECTION ARRAYS *** 

3440 FGR 1=0 TO 3:READ KT*(I):NEXT 
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3450 


FOR 1=0 TO 3:REPID XT(I):NEXT 


3460 


FOR 1=0 TO 3:REPID YT(I):NEXT 


3470 


GOTO 500 


3999 


REM *** WRIT ROUTINE *** 


4000 


WAIT 653, 1 


4010 


WAIT 653, 1, 1 


40£0 


RETURN 


5000 


DATA 0, 0, £4, 1, 0, 6, 4, 18, £0, 5, 0, £, 5, 18, £0 


5010 


DATA 6, 0, £, 6, 18, £0, 7, 0, £, 8, 1, £, 8, 7, 10, 8, 18, £0 


5020 


DATA 9, 14, 14, 9, 1, £, 9, 7, 10, 9, 18, £0, 10, 7, 10, 10, 13, 14 


5030 


DATA 10, 18, £0, 1£, 10, £0, 13, 3, 5, 13, 14, 15 


5040 


DATA 14,3,5, 16, 14, 16, 17, 0, 7, £1 , 4, 7, £5, 0, 8, £7, 11, 13 


5050 


DATA £7, 17, 18, £8, 10, 13, £9, £, 6, £9, 9, 13 


5060 


DATA 30,9, 13,31, 17, ££,34, 14, 16,34, 18, £1,36, 4, 10 


5070 


DATA 39, 0, 1,39, 3, £4, -1,-1,-1 


5080 


DATA 0, 5, 39, 1, 5, 7, 1,35, 39, £, 5, 7, £, £1, £1, £, £9, 33 


5090 


DATA 3, 13, 14, 3, 36,39,4, 3£, 35, 5, £, 11, 6, £, 4 


5100 


DATA 6, 30, 3£, 7, 1 1, 1£, 8, 16, 16, 8, £0, £0, 9, 4, 7 


5110 


DATA 9, 15, 15, 9, 19, 19, 9, £4, £4, 9, £9, 35, 10, 4, 7 


51£0 


DATA 10, 13, 14, 10, 18, 18, 10, ££,£4, 10, £8, 38, 11, 10, 10 


5130 


DATA 11, 17, 17, 11, £7,30, l£, 4,8, 1£, lfc, 16, 1£, £b, 30", 13, 16, 16, 13, 16, 30 


5140 


DATA 14, 1,7, 14, 13, 13, 14, 35,36, 15, 13, 13, 16, 4, 10, 16, 16, 33 


5150 


DATA 17, 18, 18, 17, £7, £7, 18, 4, 6, 18, 8, 10, 18, 18, 18, 18, 38, 38 


5160 


DATA 18, ££, ££, 19, 4, 6, 19, 8, 10, 19, ££, ££, £0, 4, 6, £0, 8, 10 


5170 


DATA £0, 11, £7, £1,35,36, ££,4, £7 


5180 


DATA £4,0, 39, -1,-1,-1 


5190 


DATA 0, 36, 38, 1, 6, 8, 8,9, 9,9,9, 9, 11, £9, £9, 1£, £8, £9, 19, 5,5 


5£00 


DATA 19, 9, 9, 4, 38, 38, 5, 37, 37, 6, 38, 38, 7, 37, 37 


5210 


DATA 8,38,38,9,37,37,-1,-1,-1 


5££0 


DATA 4, 37, 1, 5, 38, 13,6, 37, 1,7, 38, £6, 8, 37, 9, 9, 38, 14, -1, -1, -1 


5230 


DATA I, J, L, M, 0, -1, 1,0, -1, 0, 0, 1 


IBM PC 


.1.0 R! 


£ M «•*+:• {-i h oil f\f I e M P c * •* # 

1 il : '■■■ 


.so o 


:i to oou 


-10 R 


01 ■?;••** REi"iD KEVBUOEO *«•*• 

I ••- , . 1. V 1 — , , . ■ 1 -ft 


-.J'...'- \. 


i. ■-'..< J A 1 ' .' J i .1 •'.' 


■ 6-.' K. 


: %■■■■■■- 1 ioo ; : .we- 


:'■: i 


• KE-*~ ni ' IHEN RE ! URN 


80 I ' 


•" KE* ■■■'.< i 4 0.1 > l"HE(-.! Onl CI... I ) : XI^XT O...I ) r. RETURN 


i 


t -:---L... It. -!• .1 : i! :: 1 10,4 IHE0 B\< 


.1 i '...« 


:; :i:0i i .hoi f 

:, ; ... l-i ,:..k.,, j ;,;; j N l . iJOiF- - DEnW CHARAC TER *** 


:!. :. v. ■ 
i. -i o 


04-4:; ftu-N : 1.. •■-•..': H J. ••" i : 142-4 
..00m IE IN. ,00,. u 
4' 014 4 1' CHRit ( .O 2 > i 


1 50 


. 'JLO ! E RO „ CO s '.) 


1 ,<-..-. 


■•RINI 0NR4 (2; ; 

I -: i,i i .. L 1 '• -.. i* i'i 


i p.'-, 

1 Oi i 


1 .1. 1 ■•',(..; . t\ ,: ■ '..,IJ 

IF \..~l NIEN 44n 
ii V- 1 ! i ; 'v ■ 


.1 / .' 

'..■' 


40 -RU+ v 1 : CCOOOj-i x I 


...:: J. «..» 


J.h RO. :.,;•■! RiEN R0"24 


2 4<,' 


if RO- i. ! RON RLf-1 
IF 04.0.1 iEO ! 0= i 
IF OLiOO' iOFN 3 0.'' 


:-':v-..> 


.'-OOEEE'O ; RO „ CO.* 


260 


'! i.:: i ,-■ '.= ! ■:::.' i L.jpr.i i ■•.- \ 
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10 AWESOME PROGRAMS FROM K-POWER 



270 LOCATE 2,76,0 

280 PR I NT R 1 6HT * ( 7 I ME* , 4 ) 

290 GOTO 130 

300 REM *** MAZE COMPLETED *■*•* 

310 CLS 

320 S- 1 00* OAL ( M 1 D* ( T I ME* , 4 , 2 ) ) •+■ VAL ( M I D* ( T I ME* ,7,2)) 

330' POR T-l TO 30 

340 PRINT TAB (33) ; "YOU MADE IT!!!" 

350 PRINT: NEXT 1 

360 IF S<LS THEM LS=B 

370 CLS 

380 PRINT "YOUR SCORE IS:";S 

390 PRINT 

400 PRINT "THE LOU SCORE IS:" ; LS 

410 PRINT 

420 GOTO 4 70 

430 REM.*** RAN INTO A WALL DUMMY %*#(§!%' 'SL* ' *** 

440 CLS 

450 PRINT "YOU RAN INTO A WALL! YOU LOSE." 

460 PR IN! 

4 70 PRINT"' "PRESS < ENTER/: \Q PLAY AGAIN." 

480 GOSUB 1.000 

490 RESTORE 

500 DUM*~INKE-r* 

510 IF DU!1*<7"" THEN 500 

520 CLS 

530 GOTO 630 

540 REM •*** INTRODUCriON *■*# 

550 SCREEN , O , : W 1 D'T'H 80 : LS~99? 

560 CLS 

570 PR TNT " l"HE DIRECTION KEYS ARE:" 

580 PRINT 

590 PRINT "I -UP M"DOWN J --"LEFT L.-RIGHT" 

600 PR IN'! 

6.1.0 PRINT "PRESS < EN TEE/- TO CON TINGE., " 

620 GOSUB 1O00 

630 CLS 

6 4 O R E M * * * IN I I I A I £ Z E. II '!" I N A R R A Y S * * * 

650 l"-0R 1-0 TO 3: READ K"f * ( 1 ) r, NEXT I 
660 FOR I--0 TO 3; READ X 1" ( I ) ; MIEX T I 

6 70 FOR 1-0 TO 3: RE.ttD V 1 ( I. S : NEXT I 
680 REM *** SCREEN DISPLAY *** 
690 REhD RO,A,B 

700 IF R0~ 1 CHEN 760 

710 FOR CO -A TO B 
>20 LOCATE RO „ CO , O 
730 PRINT CMR* (2:1 9; ; 

7 40 NEXT CO 
750 GOTO 690 
760 READ CO,A,B 

7 70 IF CO- .1. THEN 830 

780 FOR RO-h 'i O B 
7 90 LOCATE RU,CG„0 
SOU PRINT CHR*<219) ; 
810 NEXT R(J 
820 GOTO 760 
830 FOR R0»-8 TO 13 
8'!0 READ CO , CH 
850 LOCATE RO „ CO , O 
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10 AWESOME PROGRAMS FROM K-POWER 



360 PRINT CHR*(CH); 

870 NEXT RO 

880 T I ME*= " 00 : 00 : 00 " 

890 GOTO 120 

900 REM *** WAIT ROUTINE *** 

1000 R$- r INKEY* 

1010 IF R*O-0HR*a3> THEM 1000 

1020 RE! URN 

2000 DA ! A I , IT , J , L „ , ■■■■ 1,1, -•■ 1 

20 1 DA 1 A 1,7, 80 , 3 , 28 , 36 , 3 , 76 , 80 ,4,7,9,5,57, 60 ,6,1,4,6,18,21,6, -36 , 38 , 7 , 

72,80 

2020 DA T A 8 ,11, 1 3,8, 68 , 7 , 9 , 38 ,41 ,9, 67 , 68 „ 1 ., 1 5 ,18,1 , 4 1 ,61, 1 1 , 4 ., 7 , 1 .2 , 

41 ,57, 12.61 , 72 

:.::0 30 DATA 14, 7,8, 14, .1.0, 1 1 , 14, 13, .14, 14,28,29, 14,31 ,32, 14, 7? ,80, 15,11, 12, 

1 5 , 20 ,21,15, 54 , 7 4 ,16, 4 4 , 54 

2040 DA T A 1 7 , J , 4 , 1 8 ,15, 38 , 1 8 , 54 , 65 , 1 8 „ 68 , 79 „ 20 , 38 ,51,21,5,7,21,11 „ 35 , 

22,49,, 76,25 , 1 , 79, 1 , - 1 ,-1 

2050 DA TA 1 „ .!. , .,1:5 ,5,2 3 , 23', 7 , 4 ,21, 8 , 1 4 , 1 4 , 9 „ 8 , 8 ,9,21, 2 1 , 1 , 1 4 , 1 4 , 1 1 , 8 , 2 1 , 

1 1 „ 23 , 23 , 1 2,15,1 5 , 1 3 , 2 „ 8 , 1 3 , 1 4 , 1 4 

2060 DA T A 1 4 , 1 4 ,14,15,5 , 1 ., 1 5 , 1 3 , 1 3 „ 1 5 ., 1 7 „ 1 7 „ 1 6 , 1 6 ,16, 1 7,15,15, 1 8,2,6, 

18,1 , 1 4 , 20 , 1 5 ,15, 2 .!. ,6,15, 23. , 4 , T , 23 „ 22 , 22 , 23 , 24 „ 24 

20 7 DA ! A 24 , 5 , 6 , 25 , 6 ,17, 28 „ 3 ,14, 30 , 6 „ 6 , 32 , 6 ,17, 34 , 6 , 1 7 , 35 , 23 , 23 , 36 , 3 , 

1 4 , 36 ,16,16, 38 , 2 , 6 , 38 ,18, 2 A , 39 , 1 7 , 1 7 

2080 DA 1 74 40 , 1 6 , 1 6 , 4 1 , 4 , .!. , 4 1 , 12,15, 4 1 , 2:3 , 24 , 45 ,2,6, 45 ,17,18, 48 ,19,22, 

49 ,5,1 , 52: ,17, 1 8 , 53 „ 2 „ 6 , 54 ,15, 1 8 , 55 , 1 8 , 20 

2090 DA T A 7. 7 ,5,1 , 59 , 1 3 , 1 3 , 59 , 20 ,21, 6 1 „ 7,7, 6 1 , 1 , 1 2 , 6 1,16,16,62,2,2,62, 



■ • > ii .■ •. 1 i 



2 1 UO DA T'A 6 3 , 8 , 8 , 64 „ 4 , 4 , 64 , 7 , 7 , 65 , 6 , 6 , 65 , 1 9 , 1 9 , 69 ,2,7,72,4,12,72, 20 ,21 , 
7 4 7 '' '-, 7 ,'-■. ! "' 1 '■". / £• '' ■-• '' ■'-• .'■■""' 7 1 4 7 6 '•'•' A •'" ■ 4 
,7 1 1 Da T A "'8 ,, 22 ,. 22 , 3< > , 1 , 3 , 80 ,, 7 , 23 , ! , .! , 1 



, .• .-■ , / '._.' 



TI-99/4A 

1 REM *** AMAZIN' TI99/4A ■**-* 
10 GOTO 740 

19 REM *** JQYTSICK ROUTINE -*■*•* 

20 CALL J0YST(2,M,N) 
30 XI---0 

•T ':.' •■ .L — ^./ 

50 LI-0 

60 IF M^JI (LI) THEN 70 ELSE 110 

70 IF N-KI (LI) THEN 80 ELSE 110 

80 X I -XT (L I ) 

90 Y I —XY ( LI ) 

100 RETURN 

1 10 LI^LI+l 

120 TI~TI ii 

130 IF LK4 THEN 60 

140 XI--0 

150 YI^O 

160 RETURN 

:! 69 REN *** READ KEYBOARD *•** 

i "?' (*j y. T -= o 

1B0 YI--0 



T •—("'. 



,'\i ' I.-- 1 !'" v ■' "■■ '■■■' rz ' 



c'SJ'J i.,H 

"■• '! C: T I ~ T T -!- 1 

220 IF P-"0 T'HEIN 170 

230 IF K=-D (LI ) THEN 240 EL Si" 
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10 AWESOME PROGRAMS FROM K-POWER 



240 


XI=XT<LI) 


250 


YI=XY<LI) 


260 


RETURN 


270 


LI=LI+1 


280 


IF LK4 THEN 230 


290 


XI=0 


300 


XI=0 


310 


RETURN 


3 1 9 


REM *■** MAIN LOOP/DRAW PLAYER CHARACTER *** 


320 


Hl = l 


330 


H2=4 


340 


R0= 1 


350 


C0=4 


360 


!..== 


370 


CALL VCHAR ( H 1 , H2 , 1 36 ) 


380 


CALL VCHAR ( RO , CO , 1 44 ) 


390 


IF L.~l THEN 660 


400 


H1=R0 


4 1 


H2=C0 


420 


ON J S05UB 20 , 1 70 


430 


RO=RO+XI" 


440 


co=c:a+Yi 


450 


IF R0<1 THEN 460 ELSE 470 


460 


R0= 1 


470 


IF CD>32 THEN 520 


480 


CALL 6CHAR(R0,C0,D) 


490 


IF D== 1 "R THEM 500 ELSE 370 


500 


L ~ 1 


5 1 


GOTO 370 


5 1 9 


REM *** COMPLETED MAZE ■*** 


5 2 '■"'' 


CALL SCREEN (12) 


530 


',._• n L.. i.... >...: i.... i.... n r \ 


540 


FOR T-~1 TO "?'r, 


550 


PRINT " YOU MADE IT : : ; " 


560 


PRINT 


570 


NEXT T 


580 


IF TKLS THEN 590 ELSE 600 


590 


LS==T I 


600 


PRINT- 


6 1 


PRINT "YOUR SCORE IS:";TI 


/-,',.-' ( ; 


O Q T I-, 1 T 
i I \ ,i I ■•) i 


■„.#■...« \.-' 


PRINT "THE LOW SCORE IS:";LS 


640 


PRINT 


650 


SOTO 700 


659 


REM *** L.QSE GAME ***• 


660 


CALL SCREEN (9) 


670 


CALL CLEAR 


680 


PRINT "YOU RAN INTO A WALL!" 


690 


PRINT 


700 


PRINT "PRESS (ENTER) TO PLAY AGAIN, " 


7 1 


GOSUB 1260 


720 


CALL CLEAR 


~7 'T ('■. 


GOTO 920 


734 


REM *•*•■*• INTRODUCTION ■**-■«■ 


740 


CALL CLEAR 


"•'50 


[."'D I MT n • ;- V ] :., r- Wni ,'p A!\|Ci,ipD » 
t i \ .!. t". >. ! ii I.... I '....".-'! \ !-i!>!-..jtvL...i\ 


760 


o o t kit 1 1 t j. j i:: m o p ir c <:; ,' i." ;•. i t ir c \ ■ : 

'- I \ .1- hi 1 ! 1 •-... 1 H 1 1 •. 1. .. ■-_' •-...' ■. L. 1 - 4 ! L.. 1 '. .-' » 


/ / \J 


PRINT 


'7<">f> 


PR IN! "ARE YOU USING A JOYSTICK"; 
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10 AWESOME PROGRAMS FROM K-POWER 



790 


INPUT J* 




800 


IF SE6*(J*, 1 , 1)="Y" THEN 810 ELSE 830 




810 


J = l 




820 


GOTO 880 




830 


J =2 




840 


CALL CLEAR 




850 


PRINT "THE DIRECTION KEYS ARE: " 




860 


PRINT 




870 


PRINT "I^LiP fl=D0WN J = LEF-"T L=RIGHT M 




880 


PRINT 




890 


PRINT "PRESS (ENTER) TO BEGIN. " 




900 


GOSUJB 1260 




9 1 


! S ~ 9 c ? 9 




0'7(") 


RESTORE 




930 


TJ>0 




070 


REM *** DEFINE CHARACTERS ***• 




940 


A$-"FFFFFFFFFFFFFFFF" 




950 


B*== "181 83CFFFF3C 1 8 1 8 " 




960 


CALL. CHAR (123, A*) 




970 


CALL CHARU.36,B$> 




980 


CALL CHAR (144,13$) 




990 


CALL COLOR (13,5,5) 




100< 


■> CALL COLOR (14,2,2) 




:i. o i c 


) CALL COLOR (15, 15,2) 




1020 FOR V-~l TO 12 




1 030 CALL COLOR ( V , 1 6 , 2 ) 




104<: 


> CALL CLEAR 




1050 ME XT V 




1059 REM *** SCREEN DISPLAY *** 




106f 


J READ RO,CG,REP 




i07<: 


) IF R0== 1 THEN 1100 




lOSi 


) CALL VCHAR ( RO , CO , 1 28 , REP ) 




109C 


i GOTO 1060 




1 10i 


i READ RO„CD,REP 




1 1 1 <: 


' IF R0~- 1 THEN 1140 




112i" 


> CALL HCHAR ( RO , CO , 1 28 , REP ) 




1 13C 


J GOTO 1100 




1 i 4< 


) FOR y:-26 TO 31 




1 1 5<: 


i READ Ci-i 




1 16< 


> CALL HCHAR ( 23, V,CH) 




1 1 7<: 


• NEXT V 




117 c 


i p<EM **•* LOAD DIRECTION ARRAYS *** 




1 "i Of 
J. .L l.„'* 


) FOR ]>0 TO 3 




1 1 9C 


) READ XT (I) 




12 Of 


> READ XY ( I ) 




1 2 1 C 


' READ J I ( I ) 




1 2J:! ; 


i READ KI ( I ) 




123C 


'■ READ B ( I ) 




124( 


) wrrr i 




-; '".t c:r ,■• 


) GOTO 320 




126< 


i INPUT R* 




1 27 ( 


! RETURN 




1 'T'0(" 
j. . ; :..'...A 


' D -i T A i.,2, 24 , 6 , 4 , 5 . 1 '? „ 4 , 5 , 1 8 , A . 2 , 2 1 , 4 , 3 




.'. i:*. '/ * 


-. ; i A ~r /\ a >~ ■! /i j- .", Q ,:. <:;:; \ <••-; /. c:.- | cj -7 r ■: 1 


"7 


1 30'. 


!. Hi ! f-1 'T ;. .!. '-..-' , .1. J. ;. ..I....:. K 1 -./ ■; .=:.. r .?. '....' 1: .;. X lj .!. 1, 1 , J. -.' "^ .L i , .:. -..' , .1. - , 


-.: ..::! 






1 32! 


*.' ' -\ I n .-:. 1 i. .f- .' t 1 :., .!. -■' .. 1 .' l; :..! :; X , .C- <J ., X X l. t v ; X-. X.. i; ■..-.' : f X .-. , X.. ...' 1; 


* -•: ■: •"■;> /). /. ; 


'! T '":' <• 




!■;- 


j. 34! 


; DA"." A 1 7 . 30 , 1 , 5 ., 32 , 20 , •- j. , ■- 1 ., - • 1 
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10 AWESOME PROGRAMS FROM K-POWER 



' 1 *- i ' ! ■*-■'- 1 <-> 1 - l L ! •■:-■- 



1 350 DATA 1 , 5 , 28 , 2 , 24 , 9 , 6 , 30 

1360 DATA 13, 16, 8, 15, 13, 17, 17, B, 4, 14, 10. 3, 2: 

1370 DATA 24,1,31,19,6,18,5,18,1,19,31,1,-1 

1380 DATA 65,77,65,90,73,78 

1390 DATA -1 ,0,0,4,73, 1 ,0,0,-4,77 



,8 



1400 DATA 0. 



1 ,-4,0,74,0, 1 ,4 



TRS-80 Color Computer 

1 REM *** AMAZIN' *** 
113 GOTO 3000 

99 REM *** JOYSTICK *** 

100 H=JOYSTK(0) 
V= JOYSTK ( 1 ) 
IF H<10 THEN 
IF H>5£ THEN 
IF V<10 THEN 
IF V>5£ THEN 
YI=0:XI=0:RETURN 
REM *** READ KEYBOARD 
LI=0 

KE*=INKEY*:IF KE*="" THEN RETURN 
IF KE*=KT*(LI) THEN YI=YT (LI ): X I=XT (LI ): RETURN 
LI=LI + 1:IF LK4 THEN £30 
RETURN 

REM *** MAIN LOOP-DRAW PLAYER CHARACTER *** 
CO=4:RO=0 

REM *** FOR EXTRA FUN *** 
REM *** CRUISE THE CLOCK *** 



110 

1£*0 
130 
140 
150 
160 
199 

200 

££'0 
£30 
£40 
£50 
499 

500 

510 
5£0 
530 
540 
550 
560 
570 
580 
590 

600 

610 
6£0 
630 
640 
£50 
660 
999 

1000 
1010 
10£0 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 

11£0 
1999 

£000 

£010 



XI=0:YI=-1: RETURN 
XI=0:YI=1:RETURN 
YI=0:XI=-1:RETURN 
YI=0:XI=1: RETURN 



•*** 



SET (CO, R0,5) 

IF F=£ THEN 570 

FOR T=l TO £ 

NEXT T 

IF L=l THEN £000 

RESET (CO, RO) 

TI=TI+. 3 

ON J GOSUB 100, £00 

RO=RO+XI:CO=CO+YI 

IF CO) 63 THEN 1000 

IF RO<0 THEN RO=0 

IF POINT (CO, R0)=3 THEN L=l 

PRINTi?£5, INT(TI) ; 

GOTO 510 

REM *** COMPLETED MAZE *** 

CLS 

FOR T=l TO 100 

PRINT "YOU MADE IT! "; 

FOR D=l TO 10 

NEXT D 

NEXT T 

CLS 

PRINT "YOUR SCORE IS:"INT(TI) 

IF INT(TI) <LS THEN LS=INT(TI) 

PRINT 

PRINT "THE LOW SCORE I3:"LS 

PRINT 

GOTO £030 

REM *** RAN INTO THE WALL DUMMY !?+(?!! 

CLS 

PRINT "YOU RAN INTO A WALL!" 



*#* 
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£0£0 


PRINT 


2030 


PRINT "PRESS (ENTER) TO PLOY AGAIN. " 


£040 


GOSUB 4000 


£050 


RESTORE 


£060 


DUM*=INKEY*:IF DUM* <> " " THEN £060 


£070 


GOTO 3130 


£999 


REM *** INTRODUCTION, THE CURTAIN RISES... *** 


3000 


CLS 


3010 


PRINT "ARE YOU USING A JOYSTICK (Y/N)?" 


30£0 


J*=INKEY*:IF J*=" " THEN 30£0 


3030 


IF J*="Y" THEN J=1:60T0 31£0 


3040 


IF J*<> "Y" THEN J=£ 


3050 


CLS 


3060 


PRINT "THE DIRECTION KEYS ARE:" 


3070 


PRINT 


3080 


PRINT "I=UP M=DOWN J=LEFT L=RIGHT" 


3090 


PRINT 


3100 


PRINT "PRESS (ENTER) TO BEGIN." 


3110 


GOSUB 4000 


3119 


REM *** INITIALIZE VARIABLES *** 


31£0 


LS=£00 


3130 


CLS(0) :L=0:YI=0:XI=0:TI=0 


3139 


REM *** DRAW LE MAZE PIERRE *** 


3140 


READ A, B 


3150 


IF A=-l THEN 3£00 


3160 


FOR CO=A TO B 


3170 


PRINT&CO, CHR* ( 143+3£) ; 


3180 


NEXT CO 


3190 


GOTO 3140 


3£00 


READ A, B 


3£10 


IF A=-l THEN 3£60 


3££0 


FOR RO=A TO B STEP 3£ 


3230 


PRINTH>R0,CHR*<143+3£) ; 


3£40 


NEXT RO 


3£50 


GOTO 3£00 


3£60 


FOR R0=158 TO 318 STEP 3£ 


3£70 


READ CH 


3£80 


PRINTSRO, CHR*(CH) ; 


3£90 


NEXT RO 


3£99 


REM *** INITIALIZE DIRECTION VARIABLES *** 


3300 


FOR 1=0 TO 3:READ KT$(I):NEXT I 


3310 


FOR 1=0 TO 3:READ XT(I):NEXT I 


33E® 


FOR 1=0 TO 3:READ YT(I):NEXT I 


3330 


GOTO 500 


3999 


REM *** WAIT ROUTINE *** 


4000 


INPUT R* 


4010 


RETURN 


5000 


DATA 4,31,61,63, 128, 130, 149, 157, 195, 197, £06, £19 


5010 


DATA £96, 309, 315, 317, 3£0, 322, 349, 351, 357, 370, 376, 379 


5020 


DATA 4£4, 437, 444, 447,480,510,-1,-1 


5030 


DATA 0, 448, 4, 68, 5, 389, 104, 296, 1 1 , £35, 45, 45 


5040 


DATA 141. 141, 79, £07, 18, 146,274,274,85, 149 


5050 


DATA 245, 245, 309, 437, 24, 88, 216, 440, 91,91 


5060 


DATA 251, £51, 125, 349, 126, 126, 350, 350 


5070 


DATA 127,510,-1,-1 


5080 


DATA 65,77,65,90,73,78 


5090 


DATA J, I,M,L,0, -1, 1.0, -1,0,0, 1 
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10 AWESOME PROGRAMS FROM K-POWER 



TRS-80 Model III and Model 4 




1 REM *** AMAZIN TRS-80 MODELS 3 AND 4 CASS. OR MODEL 3 DISK 


BASIC *** 


10 GOTO 3000 




199 


REM *** READ KEYBOARD *** 




200 


LI=0 




210 


KE*=INKEY* 




220 


IF KE*="" THEN RETURN 




230 


IF KE$=KT*(LI> THEN YI=YT (LI ): XI=XT (LI >: RETURN 




240 


LI=LI+1 




250 


IF LK4 THEN 230 




260 


RETURN 




499 


REM *** MAIN LOOP-DRAW PLAYER CHARACTER *** 




500 


C0=5 




510 


R0=0 




520 


SET (CO,RO> 




540 


FOR T=l TO 2 




550 


NEXT T 




560 


IF L=l THEN 2000 




570 


RESET (CO,RO> 




580 


TI=TI+.2 ' 




590 


GOSUB 200 




600 


RO=RO+YI : CO=CO+XI 




610 


IF CO > 127 THEN 1000 




620 


IF R0<0 THEN R0=0 




630 


IF POINT (CO,RO> THEN L=l 




640 


PRINT©56, INT(TI) ; 




650 


GOTO 520 




999 


REM *** COMPLETED MAZE *** 




1 OOC 


CLS 




1010 


FOR T=l TO 100 




102C 


PRINT "YOU MADE IT! "; 




lose 


FOR D=l TO 10 




104C 


NEXT D 




1 05C 


NEXT T 




106C 


CLS 




107C 


PRINT "YOUR SCORE IS:"INT(TI> 




1 08C 


IF INT (TI XLS THEN LS=INT(TI) 




109C 


PRINT 




1 1 OC 


PRINT "THE LOW SCORE IS: "LS 




111C 


PRINT 




ii2<: 


GOTO 2030 




1999 


REM *** RAN INTO A WALL *** 




2 OOC 


CLS 




20 1 <: 


PRINT "YOU RAN INTO A WALL!" 




202C 


PRINT 




203C 


PRINT "PRESS (ENTER) TO PLAY AGAIN." 




204 C 


GOSUB 4000 




205C 


RESTORE 




207C 


GOTO 3130 




2999 


REM *** INTRODUCTION *** 




3 OOC 


> CLS 




306C 


PRINT "THE DIRECTION KEYS ARE: " 




307C 


PRINT 




308C 


PRINT "I=UP M=DOWN J=LEFT L=RIGHT" 




30 9 C 


> PRINT 




3 1 OC 


i PRINT "PRESS (ENTER) TO BEGIN." 




3 1 1 C 


> GOSUB 4000 




3119 


REM *** INITIALIZE VARIABLES *** 
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3120 
3 1 30 
3139 
3140 
3 1 50 
3 1 60 
3 1 70 
3180 
3190 
3200 
32 1 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3299 
3300 
33 1 
3320 
3330 
3999 
4000 
4010 
5000 
50 1 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5 1 1 
5115 
5120 
5 1 30 
5140 



LS=999 

cls:l=o: yi=o: xi=o:ti=o 
rem *** draw maze *** 

READ A,B 

IF A=-l THEN 3200 

FOR C0=A TO B 

PRINTiaC0,CHR*(191) ; 

NEXT CO 

GOTO 3140 

READ A,B 

IF A=-l THEN 3260 

FOR RO=A TO B STEP 64 

PRINT@R0,CHR*<191) ; 

NEXT RO 

GOTO 3200 

FOR R0==317 TO 639 STEP 64 

READ CH 

PRINT@RO,CHR*(CH) 5 

NEXT RO 

LOAD 

TO 3 

TO 3 

TO 3 



REM *** 
FOR 1=0 
FOR 1=0 
FOR 1=0 
GOTO 500 
REM *** WAIT 
INPUT R* 
RETURN 



DIRECTION VARIABLES 
READ KT*(I) INEXT I 
READ XT(I) .'NEXT I 
READ YT(I) :NEXT I 



*** 



ROUTINE *** 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



17, 141, 143, 
?92,297,325 
379, 449, 450, 460, 461 , 464 



4,63,68,71, 120, 1 

361 

513 

595 , 60 1 , 503 , 509 , 604 , 609 ,612 

654, 656, 668, 671 , 699, 700, 709 



847 , 850 ,912,915, 863 , 872 
0,960,83,467,84,468, 152 



880 
408 



70 .1. , 765 , 702 , 766 , 775 , 775 , 84 1 

96,96,99,99,423,423, 105, 169 

858,922,797,861,874,874, 180 

255,959,318,638,-1,-1 

65,77,65,90,73,78 

M, I, J,L 

, ,-1,1 

1,-1,0,0 



92 , 203 , 

333,38, 

468,472 

552,570 

617,619 

744,752 

887,891 

165,229 

905, 780 

112,240 

308, 184 



205,1 


'07 










40,352,357 








,499, 


502, 


507 








,572, 


584, 


586, 


591, 


592 




,630, 


633, 


635, 


645, 


645 




,756, 


759, 


764 








,894, 


960, 


1022,-1, 


-1 




,91,347, 1 


57, 1 


L57,E 


36,900 


,844, 


790, 


854, 


857, 


921 




, 173, 


30 1 , 


684, 


876, 


789 


85 


,248, 


252, 


700, 


63, 1 
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v'IC-£0 *** 



ROUTINE *** 



VIC-20 

i REM *** AMflZIN' 
10 GOTO 3000 

99 REM *** JOYSTICK 

100 POKE 37154, 1£7 

liiZi XT%=PEEK<3715£) AND1£8 

120 POKE 37154,255 

130 XT*=XTS OR <PEEK(37137)AND1£7) 

1 40 X I =SGN ( XT-/.AND 1 £8 ) -SGN ( XT*AND 1 6 ) 

150 YI=SGN<XT*flND8)-SGN<XT*flND4) 

160 RETURN 

199 REM *** READ KEYBOARD ROUTINE *** 

£00 XI=0:YI=0:LI=0 

£10 GET KE*:IF KE*=""TH£N RETURN 

££0 IF KE*=KT*(LI)THEN YI=YT (LI ) : X I=XT (L 



I) : RETURN 
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230 
240 
499 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 

600 

610 
620 
630 
640 
999 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 

1120 
1999 

2000 
2010 

2020 
2030 
2040 
2050 
2060 
2070 
2999 

3000 
3010 

3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 

3100 

3110 
3119 
3120 
3130 
3139 
3140 



LI=LI + 1:IF LK4 THEN 220 

RETURN 

REM MO IN LOOP-DRAW PLAYER *** 

H1=3:H2=0 

CO=2:RO=0:L=0 

T I *=" 000000" 

IF C0>21 THEN 1000 

IF RO<0 THEN RO=0 

POKE CB+H1+22*H2,2 

POKE CB+CD+22*RO,0 

POKE SE+C0+22*R0, 81 

IF L=160 THEN 2000 

H1=C0:H2=R0 

ON J GOSUB 100,200 

RO=RO-YI:CO=CO-XI 

L=PEEK <SB+C0+22*R0) 

PRINT CHR* < 19) CHR* < 159) TAB < 18) RIGHT* (TI*, 3) 

GOTO 530 

REM *** COMPLETED MAZE *** 

PRINT CHR*<147) :WH*=TI* 

FOR T=l TO 100 

PRINT"YOU MODE IT! "; 

POKE 36879, I NT ( RND < 1 ) *7 ) +8 

NEXT T 

POKE 36879,237 

IF VAL(RIGHT*(WH*,3) ) <VAL (LS*) THEN LS*=RIGHT* ( WH*, 3) 

PRINT CHR*(147)CHR*<144) 

YOUR SCORE IS:" RIGHT* (WH*, 3) 



"THE LOW SCORE IS:"LS* 



" (SHIFT) 

4000 



TO PLOY AGAIN" 



PRINT 

PRINT 

PRINT 

PRINT 

GOTO 2030 

REM *** RAN INTO WALL *** 

PRINT CHR* (147) CHR* (144) 

PRINT "YOU RAN INTO A WALL! 

PRINT 

PRINT 

GOSUB 

RESTORE 

GET DUM*:IF DUM* <> " "THEN 2060 

GOTO 3120 

REM INTRODUCTION *** 

PRINT CHR* (147) 

PRINT "USING A JOYSTICK 

GET J*: IF J*=""THEN 302C 

IF J*="Y" THEN J=1:60T0 

IF J*=<> "Y" THEN J=2 

PRINT CHR*(147) 

THE DIRECTION KEYS 



(Y/N) 



.120 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 



ARE' 



"I=UP M=DOWN" 
"J=LEFT L=RIGHT" 
PRINT "PRESS (SHIFT) 

4000 

REM *** INITIALIZE VARIABLES 
SB=7680 : CE=38400 : LS*= " 200 " 
POKE 36879, 46: POKE 650,128 
REM *** DRAW MAZE *** 
PRINT CHR* (147) 



TO BEGIN' 



*** 
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3150 


READ CO, A, B 


3160 


IF C0=-1 THEN 3220 


3170 


FOR R0=A TO B 


3180 


POKE SB+C0+22*R0, 160 


3190 


POKE CB+C0+22*R0, 1 


3200 


NEXT RO 


3210 


GOTO 3150 


3220 


READ RO, A,B 


3230 


IF RO=-l THEN 3380 


3240 


FOR CO=A TO B 


3250 


POKE SB+C0+22*R0, 160 


3260 


POKE CB+C0+22*R0, 1 


3270 


NEXT CO 


3280 


GOTO 3220 


3380 


READ RO, CO,CH, Q 


3390 


IF RO=-l THEN 3440 


3400 


POKE SB+C0+22*R0, CH 


3410 


POKE CB+C0+22*R0, Q 


3420 


PRINT CHR$<144) 


3430 


GOTO 3380 


3439 


REM *** INITIALIZE DIRECTION VARIABLES *** 


3440 


FOR 1=0 TO 3:READ KT$(I):NEXT 


3450 


FOR 1=0 TO 3: READ XT(I):NEXT 


3460 


FOR 1=0 TO 3:READ YT(I):NEXT 


3470 


GOTO 500 


3999 


REM *** WAIT ROUTINE *** 


4000 


WAIT 653, 1 


4010 


WAIT 653, 1, 1 


4020 


RETURN 


5000 


DATA 0, 0, 22, 3, 15, 19, 4, 0, 2, 5, 0, i6, 8, 3, 14 


5010 


DATA 11,1,9,14,2,6,14,9,12,16,12,16,18,3,10 


5020 


DATA 18, 16, 17,21,0, 1,21,3, £2, -1,-1,-1 


5030 


DATA 0, 4, 17, 1, 17, 21,2, 14, 15, 3, 18, 21,4, 17, 17,5,0,3 


5040 


DATA 6, 15, 16,8,3,5,9, 14, 17, 10, 18, £1 , 12, 1, 2, 12, 1 1 , 14 


5050 


DATA 14, 8, 18, 15, 3, 4, 16, 3, 13, 18, 16, 16, 19, 7, 16, 20, 19, 20 


5060 


DATA 22,0,21,-1,-1,-1 


5070 


DATA 4, 19, 1, 1,4,20,81,7, 5, 19,81, 3,5, 20, 13, 1,6, 19, 1, 1 


5080 


DATA 6,20,81,4,7, 19,81,5,7,20, 26, 1,8, 19,9, 1,8,20,81,6 


5090 


DATA 9, 19, 81,7,9, 20, 14, 1,-1,-1,-1,-1 


5100 


DATA M,L, J, 1,0, -1, 1,0,-1,0,0, l' 


READY. 
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BONUS PROGRAM #2 


POISON IVY 


POIS 


ON IVY is a game that helps you. learn haw to get out 


a f a 


variety of sticky situations in a hurry. You begin 


the 


•game stuck in a POISON IVY pate hi. The only way out is 


t o g 


a ?1 1 the way off the right side of the screen before 


the 


b 1 o o m i n g P 1 S N IVY t r a p s y a u , m a k i n g e s c a p e 


i mpo 


ssible. When you touch POISON IVY, you lose. Each 


t i me 


you make it to the right side of the screen, the game 


re at 


arts, becomes harder, and puts you at the left, side of 


the 


screen. You use joystick or keyboard to control your 


di recti on » 


ADAM 


1 


REM *** POISON IVY ADAM *** 


10 


GOTO 3000 


199 


REM *** read keyboard routine *** 


200 


xi = 0: yi = 0: li = 


210 


GET ke$ 


220 


IP ASC(ke$) = 160 THEN yi = -1 : RETURN 


230 


IP ASC(ke$) =161 THEN xi = 1 : RETURN 


240 


IP A3C(ke$) = 162 THEN yi = 1 : RETURN 


250 


IF A8C(ke$) = 163 THEN xi = -1 : RETURN 


399 


REM *** draw ivy *** 


400 


x = INT(RND(1 )*39) 


410 


y = INT(RND(1 )*39) 


420 


IP x = AND y = 11 THEN 400 


430 


IP x = 1 AND y = 1 1 THEN 400 


440 


COLOR = 6 


450 


PLOT x, y 


460 


RETURN 


499 


REM *** main loop-draw player character *** 


500 


co = : ro = 11: 1=0 


510 


COLOR = 1 1 


520 


PLOT co, ro 


530 


IP 1 = 1 THEN 2000 


540 


GO SUB 200 


550 


ro = ro+yi: co = co+xi 


560 


IP ro > 39 THEN ro = 39 


570 


IP ro < THEN ro = 


580 


IP co < THEN co = 


590 


IP co > 39 THEN 1000 


600 


IP SCRN(co, ro) = 6 THEN 1 = 1 


610 


COLOR = 


620 


PLOT co-xi, ro-yi 


630 


x = x+1 


640 


IP x/6 = INT(x/6) THEN G0SUB 400 


650 


GOTO 510 


999 


REM *** successfully completed maze *** 


1000 


TEXT: HOME 


1010 


FOR t = 1 TO 100 


1020 


PRINT "Y0LJ MADE IT! "; 


1040 


NEXT t 
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1060 


s = s+1 : IP s > hs THEN hs = s 




1070 


di = di+50 




1080 


HOME 




1100 


PRINT "Your score is: "; s 




1110 


PRINT 




1120 


PRINT "The high score is: "; hs 




1130 


PRINT 




1140 


GOTO 2080 




1999 


REM *** lose game *** 




2000 


TEXT: HOME 




2010 


PRINT "YOU LOSE," 




2015 


PRINT "You have POISON IVY!" 




2020 


PRINT 




2030 


PRINT "Your final score is: "; s 




2040 


PRINT 




2050 


PRINT "Your high score is: "; hs 




2060 


PRINT 




2070 


s = 




2080 


PRINT "Press any key to play again." 




2110 


GET durn$ 




2130 


GOTO 3060 




2999 


REM *** introduction *** 




3000 


HOME 




3010 


PRINT TAB(8); "POISON IVY!" 




3020 


PRINT 




3030 


PRINT "Press any key to begin." 




3040 


GET n$ 




3049 


REM *** display screen *** 




3050 


di = 175 




3060 


GR 




3070 


FOR t = 1 TO di 




3080 


GOSUB 400 




3090 


NEXT t 




3100 


GOTO 500 




Apple II and Apple He 




1 RF 


EM **•* POISON IVY APPLE *** 




10 


SOTO 3000 




99 F 


REM **•* JOYSTICK ROUTINE *** 




100 


IF PDL <1) < 64 'THEN YI = - 1: GOTO 150 




1 10 


IF PDL (1) > 192 THEN YI = 1: GOTO 150 




120 


VI = 




150 


IF PDL (0) < 64 THEN XI = - Is GOTO 190 




160 


IF PDL. (0) > 192 THEN XI = Is GOTO 190 




170 


<I = 




190 


_I == 0: RETURN 




199 


REM ■*** READ KEYBOARD ROUTINE *** 




200 


XI = : Y I = : L I = 




210 \ 


<E = PEEK ( - 16384); POKE - 16368,0 




220 


IF KE < 128 THEN GOTO 250 




230 


IF CHRt- (KE ~ 128) - KTf-(LI) THEN YI = YT<LI);XI = XT 


(LI): RETURN 


240 


_I ■■="- LI + 1: IF LI < 8 THEN 230 




250 


RETURN 




399 


REM *** DRAW IVY ■*** 




400 


X - INT ( RND (0) * 39) 




4 1 


V = INT ( RND (1) » 47) 




420 


IF X == AND Y =■■ 11 THEN 400 




430 


IF X = 1 AND Y = 11 THEN 400 
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440 

450 

460 

499 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 > 

640 

650 

999 

1000 

1 1 o 

1020 

1040 

1 060 

1070 

1 080 

1 1 00 

1 1 1 

1 1 20 

1 130 

1 1 40 

1999 

20d)0 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2100 

2110 

2130 

2140 

2999 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

310O 



C0L0R= 12 
PLOT X,Y 
RETURN 

REM #** MAIN LOOP-DRAW PLAYER CHARACTER *** 
CO = 0:RO = 11:L = 
COLOR= 1 1 
PLOT CO.RO 
IF L = 1 THEN 2000 
ON J GOSUB 100,200 
RO = RO + YI.-CO = CO + XI 
IF RO > 47 THEN RO = 47 

O THEN RO = 

O THEN CO - 

39 THEN 1000 

i: 



RO 
CO 
CO 



THEN L 



1 



(X / 6) THEN GOSUB 400 



IF 
IF 
IF 

IF SCRN< CO,RO) 
COLOR= 

PLOT CO - XI ,R0 - YI 
', = X + 1 
IF X / 6 = INT 
GOTO 510 
REM *** SUCCESSFULLY COMPLETED MAZE*** 

TEXT : HOME 

FOR T = 1 TO 100 

PRINT "YOU MADE IT! "; 

NEXT T 
S = S + 1: IF S > HS THEN HS = S 
DI = DI + 50 

HOME 

PRINT "YOUR SCORE IS: "S 

PRINT 

PRINT "THE HIGH SCORE IS: "HS 

PRINT 

GOTO 2080 

REM *** LOSE GAME *** 



YOU HAVE POISON IVY! 



'OUR FINAL. SCORE IS: 



TEXT : HOME 
PRINT "YOU LOSE. 
PRINT 
PRINT 
PRINT 

PRINT "THE HIGH SCORE IS: "HS 
PRINT 
3 = : 

PRINT "PRESS ANY KEY TO PLAY AGAIN." 
IF PEEK ( - 16368) > 127 THEN 2100 
GET DUM* 
HOME : RESTORE 
GOTO 3150 

REM ■*** INTRODUCTION *** 
HOME 

PR I NT " ARE YOU US I NG A J O YST I CK ( Y / N ) ? " 
GET J* 

IF J* --■■■- "Y" THEN J == 1: GOTO 3140 
IF J* < > "Y" THEN J = 2 
HOME 

PRINT "THE MOTION KEYS ARE:" 
PRINT 

PRINT TAB( 6) "U I 0" 
PRINT TAB( 6) "J L" 
PRINT TAB( 6) "M 
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3110 PRINT 


3120 PRINT "PRESS ANY KEY TO BEGIN. " 


3130 GET N* 


3140 DIM KT*(7) , XT(7) ,YT(7) :DI = 175 


3149 REM *** ENTER FULL L0-RES GRAPHICS SCREEN *** 


3150 GR : POKE - 16302,0: CALL - 199B 


3159 REM *** INITIALIZE DIRECTION VARIABLES *** 


3160 FOR I = TO 7: READ KT* ( I ) : NEXT 


3170 FOR I = TO 7: READ XT(I): NEXT 


3180 FOR I = TO 7: READ YT ( I ) .- NEXT 


3190 FOR T = 1 TO DI 


3200 GO SUE: 400 


3210 NEXT T 


3220 GOTO 500 


5000 DATA " , " , " . " , L , , I , U , J , M 


50 1 DATA 0,1,1,1,0, - 1 , ~ 1 , - 1 


5020 DATA 1,1,0, -- .1. ,-1,-1,0,1 


Atari 


1 REM *■*■* POISON IVY' ATARI #** 


1 D 1. M R* ( 1 ) , J * U. ) , ..J ( 1 ) , B ( 1 ) , X "f ( 1 ) , Y'T ( 1 > 


20 GOTO 3000 


99 RE M * * * J V S J I C K R U T I N E ■* •* * 


1 0() 1... I -"0: Y I~-0; X I-=0 


1 10 JOYSTICK (0> 


1 20 1 F J V- J ( !.... I ) 1 MEM V I =■■ Y 1 < L I ) : X I == X 1" ( 1... 1 > s RET URN 


130 Ll-LI+1 


140 IF LK8 THEM 120 


1 50 X .1. ~-0: V I -~0 


160 RETURN 


199 REM *■** KEYBOARD ROUT I ME *•** 


200 X I. "0 : Y I ™=0 ; L I ~0 


210 K-PEEM764) 


220 IF 10255 THEN 210 


230 i f k-b < l i » then y i - y t < l i > - x i --= x r <: l i ) ; ret i jrn 


240 L1X...I + .1. 


250 IF LKS THEM 230 


260 RETURN 


400 X " I M 1" ( RND ( 1 ) #40 > 


410 V"=INT «RND(;|. ) *24 > 


420 IF X--0 AMD V '= 1 1 THEN 400 


430 IF X-l AND v~ll MIEN 400 


440 COLOR 2 


450 PLOT X , Y 


460 RETURN 


499 REM *■*■* MAIM LOOP DRAW PLAYER CHARACTER •*■** 


500 C0~ : 0: R0~1 1 : L~0 


5.1.0 H:L~0: H2=l J. 


; : v?o cm itr o 


-.../ ■-> -J i 1.... I.. 1 t I I J. ., l l ..::. 

540 COLOR 1 


550 PLOT CO, Rl) 


560 IF L~l THEN 2000 


5 70 l-U. -n::a ; H2-R0 


5RO ni\i j r-inR! m 100,200 


5 9 R ■■■" P. + Y I : C - : C •+■ X I 


600 IF R0>23 THEM R0~23 


6.1.0 IF RO;o THEM R0~0 


620 IF' C0<0 THEN CO-o 
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630 


IF C0>39 THEN 1000 




640 


LOCATE CO , RO , C 




650 


IF C=2 THEM L-l 




660 


Z = Z + 1 




6 7 


IF Z/3=INT(Z/3) THEN GOSUB 400 




680 


POKE 764,255 




690 


GOTO 520 




999 


REM **•* COMPLETED MAZE •*** 




1000 


GRAPHICS 




1 1 


FOR 1-1 1"0 100 




1020 


PRINT "YQO MADE IT! ! ! "; 




1030 


NEXT T 




1040 


PRINT CHR*(125> 




lobo 


S^S+lsIF S>HS THEN HS^S 




1060 


DI^DI+50 




1070 


PRINT "YOUR SCORE IS:";S 




1080 


PRINT 




."!. 090 


PRINT "THE HIGH SCORE IS:" ; HS 




1 100 


PRINT 




1 1 1 


GOTO 2090 




1999 


REM ■*** HA HA POISON IVY *** 




2000 


GRAPHICS 




2010 


PRINT "YOU HAVE POISON IVY 1 YOU LOSE." 




2020 


PRINT 




2030 


PR I N T " V OUR F I N AL SCORE I S : " ; S 




2040 


PRINT 




2050 


PR I N T " THE H I GH SCORE IS:"; HS 




2060 


PRINT 




2070 


B~0 




2090 


PRINT "PRESS < RET!JRM> TO PLAY REVERSE." 




2 :! O'J 


GOSUB 4000 




2 1 1 


RESTORE 




2120 


PRINT CHR*C125> 




2 1 30 


GOTO 31 70 




2999 


REM *** INTRODUCTION *** 




300O 


PRINT CHR*<125) 




30 1 


PRINT "TYPE YOUR ANSWER THEN PRESS < RETURN >." 




3020 


PRINT "ARE YOU USING A JOYSTICK <Y/N>"; 




3030 


INPUT J* 




JO 40 


1 F J *'=• " V " T HEN J==- 1 : GOTO 3 1 30 




3050 


IF J*<>"Y" THEN J =2 




3060 


PRINT "THE MOTION KEYS ARE:" 




•3070 


PRINT " U I 0" 




Z>060 


PRINT " J L" 




3090 


PRINT " M 




3100 


PRINT 




3 1 1 


PRINT "PRESS < RETURN > TO BEGIN. " 




3120 


GOSUB 4000 




3130 


PRINT CHR* (125) 




3159 


REM *** INITIALIZE SCREEN AND SCORE VARIABLES 


* •» *• 


31.60 


D I ^ 1 25 




3170 


GRAPHICS 3+1.6 




3179 


REM •**■-* LOAD MOTION ARRAYS ■*** 




3180 


F R I - T 7 : R E A D G : J < I ) = • G : N E X T I 




3190 


FOR ]>--0 TO 7 : READ B: B ( I > ~B: NEXT I 




3.200 


FOR I =0 ! 7 ■■ READ X : X T ( I ) ~ X : NE X '!" I 




3210 


FOR I ==0 TO / : READ Y s YT ( I ) ~ Y : NEXT I 




''. ';.'■' ? ( 'i 


FOR !"=:•: 1 10 DI 




'"t '.■■' "'i i ' 


GOSUB 400 





29 



10 AWESOME PROGRAMS FROM K-POWER 



3240 NEXT T 

3250 GOTO 500 

4000 INPUT R* 

4010 RETURN 

5000 DATA 1 O ,14,6,11, 7 ,9,1 3 , 5 

50 1 DATA 1 1,13,8,1,0,37, 32 , 34 

5020 DATA - 1,0,1, ■■■■■ 1,1,-1,0,1 

5030 DATA -1,-1, - 1,0,0,1,1,1 

Commodore 64 

1 REM *** POISON IVY 64 *** 
10 GOTO 313013 

99 REM *** JOYSTICK ROUTINE *** 

100 XI=0:YI=0:LI=0 
110 J V= PEEK < 56321) 
130 JV=15-(JVAND15> 

130 IF JV=JS(LI)THEN YI=YT (LI >: XI=XT (LI >: RETURN 

140 LI=LI + 1:IF LK10 THEN 130 

150 X 1=0 :YI=0: RETURN 

igg REM *** READ KEYBOARD ROUTINE *** 

£00 XI=0:YI=0:LI=0 

£10 GET KE* 

££0 IF KE*=""THEN RETURN 

£30 IF KE$=KT*(LI> THEN YI=YT (LI ): XI=XT (LI ): RETURN 

£40 LI=LI+1:IFLI <8 THEN £30 

£50 RETURN 

3gg REM *** DRAW IVY *** 

400 X=INT(RND(0)*3g> 

410 Y=INT(RND(1)*£5) 

4£0 IF X=0 AND Y=ll THEN 400 

430 IF X=l AND Y=ll THEN 400 

440 POKE SB+X+40*Y,88 

450 POKE CB+X+40*Y, 5 

460 RETURN 

4gg REM *** MAIN LOOP-DRAW PLAYER CHARACTER *** 

500 CO=0:RO=11:L=0 

510 POKE CB+H1+40*H£, 11 

5£0 POKE CB+CO+40*RO, 

530 POKE SB+CO+40*RO, 86 

540 IF L=l THEN £000 

550 H1=C0:H£=R0 

560 ON J GOSUB 100, £00 

570 RO=RO+YI:CO=CO+XI 

580 IF R0>£4 THEN R0=£4 

5g0 IF RO<0 THEN RO=0 

600 IF CO<0 THEN CO=0 

610 IF C0>3g THEN 1000 

6£0 IF PEEK(SB+CO+40*RO)=88 THEN L=l 

630 X=X+1 

640 IF X/6=INT(X/6)THEN GOSUB 400 

650 GOTO 510 

ggg rem *** successfully completed maze *•** 

1000 print chr*(147) 

1010 for t=i to 100 

10£0 print "you made it! " ; 

1030 poke 53£80, int (rnd ( 1 ) *16) +1 

1050 NEXT T 

1060 S=S+1:IF S>HS THEN HS=S 

1070 DI=DI+50 
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1080 


PRINT CHR*(147) 


1090 


POKE 53281, 11 


1100 


PRINT "YOUR SCORE IS:"S 


1110 


PRINT 


1120 


PRINT "THE HIGH SCORE IS:"HS 


1130 


PRINT 


1140 


BOTO 2080 


1999 


REM *** LOSE GOME *** 


£000 


PRINT CHR*(147) 


£010 


PRINT "YOU LOSE, YOU HAVE POISON IVY!" 


£0£0 


PRINT 


£030 


PRINT "YOUR FINAL SCORE IS: "S 


£040 


PRINT 


£050 


PRINT "THE HIGH SCORE IS:"HS 


£060 


PRINT 


£070 


S=0 


£080 


PRINT "PRESS (SHIFT) TO PLAY AGAIN." 


£090 


GOSUB 4000 


£100 


RESTORE 


£110 


GET DUM* 


£1£0 


IF DUM*<> ""THEN 2110 


£130 


PRINT CHR*(147) 


£140 


GOTO 3170 


£999 


REM *** INTRODUCTION *** 


3000 


PRINT CHR*(147) 


3010 


PRINT " ARE YOU USING A JOYSTICK (Y/N) ?" 


3020 


GET J*: IF J*=""THEN 3020 


3030 


IF J*="Y"THEN J=1:G0T0 3140 


3040 


IF J*<> "Y"THEN J=2 


3050 


PRINT CHR*(147) 


3060 


PRINT "THE MOTION KEYS ARE:" 


3070 


PRINT 


3080 


PRINT TAB<6) "U I 0" 


3090 


PRINT TAB (6) "J L" 


3100 


PRINT TAB(6)"M , . " 


3110 


PRINT 


31£0 


PRINT "PLEASE PRESS (SHIFT) TO BEGIN." 


3130 


GOSUB 4000 


3140 


PRINT CHR*(147) 


3159 


REM *** INITIALIZE SCREEN AND SCORE VARIABLES 


3160 


SB= 1 024 : CB=55296 : D I = 1 25 


3170 


POKE 53280, 9:P0KE 53281, 1 1 : POKE650, 128 


3179 


REM *** INITIALIZE DIRECTION ARRAYS *** 


3180 


FOR 1=0 TO 7:READ KT*(I):NEXT 


3190 


FOR 1=0 TO 7: READ XT(I):NEXT 


3£00 


FOR 1=0 TO 7: READ YT(I):NEXT 


3£10 


FOR 1=0 TO 7:READ JS(I):NEXT 


3£20 


FOR T=l TO DI 


3£30 


GOSUB 400 


3£40 


NEXT T 


3250 


GOTO 500 


3999 


REM *** WAIT ROUTINE *** 


4000 


WAIT 653, 1 


4010 


WAIT 653, 1, 1 


4020 


RETURN 


5000 


DATA ", ", ". ",L,0, I,U, J,M 


5010 


DATA 0, 1, 1, 1,0,-1,-1,-1 


50£0 


DATA 1, 1,0,-1,-1,-1,0, 1 


5030 


DATA 2, 10,8,9, 1,5,4,6 



•*•** 
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IBM PC 


10 


REM *** POISON IVV IBM- PC *** 


20 


KEY OFF 


30 


SOTO 680 


40 


REM *** READ KEYBOARD ROUTINE *** 


50 


LI==0: X. 1=0: Y 1=0 


60 


<E*=IWKEY* 


70 


IF KE*="" THEN RETURN 


80 


IF KE*=KT*(LI) THEN YI=YT (LI ): X I = XT (LI ): RETURN 


90 


_ I =L I + 1:1 F L I < 8 1 HEN 80' 


1 00 


RETURN 


1 1 


REM *•*# DRAW POISON IVY *■** 


1 20 


X=INT(RND<1 >*79)+l 


130 


Y-INT (RND(1)*24)+1 


140 


IF X=l AND Y = ll THEN 120 


1 50 


IF X = 2 AND Y=ll THEN 120 


160 


LOCATE V, X,0 


170 


PRINT CHR*(5> ; 


180 


RETURN 


190 


C0=- 1 : R0= 1 1 s L. ~0 : H 1 = 1 1 s H2= 1 


200 


LOCATE HI ,H2,0 


2 1 


PRINT CHR* (32) ; 


220 


LOCATE RO,CO,0 


230 


PRINT CHR* (2) ; 


240 


H1==R0:H2==C0 


250 


IF I...-1 THEN 520 


260 


GOSUB 50 


270 


R0==R0+ Y I : C0--C0+X I 


280 


IF RG>24 THEN RQ--24 


290 


IF R0<1 THEN R0=1 


300 


IF C0<1 THEN CQ=1 


3 1 


IF CO 79 THEN 380 


. 320 


Q~SCREEN(RO,CQ> 


330 


IF 0=5 THEN L-l 


340 


X==X+1 


350 


IF X/6=INT"(X/6> THEN GOSUB 120 


360 


GOTO 200 


370 


REM *** SUCCESSFULLY COMPLETED MAZE *•*•* 


380 


CLS 


390 


FOR L-l TO 30 


400 


PRINT TAB (33) ; "YOU MADE IT ! ! ! " 


4 1 


NEXT T 


420 


5=S+1 


430 


IF S>HS THEN HS=S 


440 


DI-DI+50 


450 


CLS 


460 


PR I N T " Y OUR SCORE I S : " ; S 


470 


PRINT 


480 


PRINT "THE HIGH SCORE IS:"; MS 


490 


PRINT 


500 


GOTO 600 


5 .1. 


REM *** LOSE GAME *•** 


520 


CLS 


530 


PRINT "YOU HAVE POISON IVY' YOU LOSE." 


540 


PR I N 1 


550 


PR I N T " \ OUR F I NAL SCORE I S : " ; S 


560 


PRINT 


570 


PRINT "THE HIGH SCORE IS:" ; HS 
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580 PRINT 


590 S="0 


600 PRINT "PRESS < ENTER > TO PLAY AGAIN," 


610 GOSUB 1000 


620 RESTORE 


630 DUM$=INKEY* 


640 IF DUMtO""THEN 630 


650 CLB 


660 GO 10 800 


670 REM *** INTRODUCTION •**■* 


680 SCREEN , , : W I D I'H 80 


690 CI....S 


700 PRINT "THE DIRECTION KEYS ARE;" 


710 PR INI 


720 PRINT " U I 0" 


730 PRINT " J L" 


740 PRINT " N , 


/ -.../U i P. .1, 1 ■•] ! 

760 PRINT "PRESS < ENTER > TO BEGIN." 


770 GOSUB 1000 


780 CL...S 


"790 DI--125 


900 FOR 1-0 10 7: READ KT* < I ) : NEXT I 


810 FOR I-=0 T'O /sREAD XT (I): NEXT I 


820 FOR 1-0 TO / : READ Y'T ( I ) : NEX T I 


Si 30 FOR T"~l TO D 3. 


840 GOSOB 120 


850 NEX! I 


860 GOTO 190 


lOOO R:t:™INKEVt 


1010 IF R$< >CHE*< 13) THEN 1000 


1020 RETURN 


2000 DA TA " , " „ " ,. " „ L , , I , U , J , N 


20 1 DA T A ,1,1,1,0, - 1 , 1 , •- 1 


2020 DA I A 1 „ i , , 1 , ■• 1 , - 1 ,0,1 


TI-99/4A 


1 REN »*•* POISON IVY 1I99/4A ■*** 


10 GO 10 960 


1 9 R E 1 - i * + * J y S 1 I C !•■ . E U "1" I N E * * * 


20 CALL JOYS I ( 1 „U,N) 

"•!'i i v )' ,■ 'i 


40 Yl"0 


60 IF N---JI (L t ) N-IEN ?0 ELSE 1 10 


70 IF N~~KI U...I) THEN So EI...SE 110 

cm . v 't v t i f i • 


90 VI^XYvLli 

i i "jp "i C' i::. i i irii' [ 


J. L-'l7 ) \ c. | l„,.ii -\i-:{ 

11 O L I-L I -I 1 


120 IF LJL.8 !"F!EN 6'..* 


1.30 Xl-O 


140 ,1-0 


150 RETURN 
•i .c-i i , f ■ , 


1 6 9 R E f v i * * # 1 . E i' B A R D R U I 1 N E * * * 


170 Yl-^O 


180 L1---0 


190 call key \3,k.,p.- 
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200 


1 = 1 + 1 


210 


IF Z/2=INT(Z/2)THEN 220 ELSE 230 


220 


GOSUB 330 


230 


IF P=0 THEN 190 


240 


IF K=B<LI)THEN 250 ELSE 280 


250 


XI=-XT (LI ) 


260 


YI=XY (LI) 


270 


RETURN 


280 


LI=LI+1 


290 


IF LKS THEM 240 


300 


X I =0 


3 1 


V I =0 


320 


RETURN 


329 


REM *■** DRAW IVY ROUTINE *** 


330 


OIN1 <RND*32> +1 


340 


R=INT <RND*24) +1 


350 


IF R=12 THEN 360 ELSE 370 


360 


IF C=3 THEN 330 


370- 


GALL HCHAR(R,C, 136) 


380 


RETURN 


389 


REM *** MAIN LOOP/ DRAW PLAYER *** 


-•;.vu 


H 1 = 12 


400 


H2=3 


4 1 


ROM. 2 


420 


CG--= 3 


430 


L~0 


440 


CALL HCHARCH1 ,H2, 128) 


4 SO 


CALL HCHAR ( RO , CO , 1 20 ) 


460 


IF L==.l THEN 830 


47 


Hl-RQ 


480 


H2----C0 


49o 


2 -■■■■ 1 + 1 


500 


ON -7 GOSUB 20, 160 


5 1 


RO-RO+XI 


520 


C0~C0+YI 


529 


REM **■* DEFINE BOUNDARIES *** 


530 


IF R0<1 THEN 540 ELSE 550 


540 


RO^ 1 


550 


IF R0>24 THEM 560 ELSE 570 


560 


R0=24 


570 


IF C0<2 THEN 5S0 ELSE 590 


580 


CO ~2. 


590 


IF C0>32 THEN 660 


600 


CALL OCHAR (EO,CO„D) 


6 :!. 


IF D=I36 THEN 620 ELSE 630 


620 


L-l 


630 


I F Z /4~ I N T" ( Z / 4 ) THEN 640 EL SE 650 


640 


GO BUB 330 


650 


GOTO 440 


659 


REM *** !".;UMPI..ETED MAZE *■** 


660 


CALL SCREEN': 1.2) 


6 7 


CALL CLEAR 


680 


FOR l' = .t TO 25 


690 


PRINT " YOU MADE II'! ! ! " 


7(.)0 


PRINT 


7 1 


NEXT "!" 


720 


8=5+1 


730 


DI-DI+35 


740 


IF S>HS 'CHEN 750 EI...SE 760 
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750 HS=S 

760 PRINT 

770 PRINT "YOUR SCORE IS:";S 

780 PRINT 

790 PRINT "THE HIGH SCORE IS:";HS 

800 PRINT 

810 60 10 910 

829 REM *** LOSE ROUTINE *** 

830 CALL SCREEN (9) 
840 CALL CLEAR 

850 PRINT "YOU HAVE POISON IVY," 

860 PRINT' 

870 PRINT "YOUR FINAL SCORE IS:";S 

880 PRINT 

890 PRINT "THE HIGH SCORE IS:";HS 

900 S"0 

91 A PRINT 

920 PRINT "PRESS (ENTER) TO PLAY AGAIN. " 

930 GOSUB 1380 

940 RESTORE 

950 GOTO 11.70 

959 REM ■*■**• INTRODUCTION *■** 

960 CALL. CLEAR 

970 PRINT "TYPE r'OUR ANSWER" 

980 PRINT "THEN PRESS (ENTER)," 

990 PR.LN1 

1000 PRINT "ARE YOU USING A JOYSTICK:"; 

1010 INPUT J* 

1020 IF SEG$i.JS, 1 , 1 )--"Y" THEN 1030 ELSE 1050 

1030 j-:i. 

1040 GO 10 1120 

1050 J =2 

1060 CALL CLEAR 



10 70 PRINT "I HE DIRECTION K 



iEEs " 



1080 PRINT 

1090 PRINT TAB (7) ; "LI 1 0" 

1100 PRINT TAB 07) ; " J L" 

11 10 PRINT TAB 07) ; "M 
1120 PRINT 

1130 PRINT "PRESS (ENTER) TO BEGIN,.' 

1140 PRINT 

1150 GOSUB 1380 

1159 REM *** INITIALIZE 

1160 Dl ™75 

1170 CALL SCREEN C2) 

1 1 SO- CALL CLEAR 

1 190 FOR 1~0 i'O 7 

1200 READ X Y ( I .< 

1210 READ X !' ( I .< 

1220 READ JUL' 

12 5A RE A I; LI ( 1 > 
1240 READ B '. 1 .' 
1250 NEX T 1 
1260 RANDOMIZE. 

1.269 REM **■*■ DEFINE CHARACTERS *** 

:l 2 70 A *■•-= " F.l ;: f F F F F F F F F 1= 1= F i :: !" " 

1280 B i- ■■ -■ " 1 :,:' v 4 5 8 3 3 9 C 5 A 3 3 1 C ' ' 

1290 

J. 30A CAl 



API A BEES AND ARRAYS *■** 



..!.... CHAR* 128, A*,' 
Dl lAR ( 1 : '2> , B* ) 
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1 3 1 CALL.. COLOR (13,2,2) 

1320 CALL COLOR (1 4, 3, 1 ) 

1 330 CALL COLOR (12,10,1.) 

1340 FOR 1=1 TO Dl 

1.350 GQ3UB 330 

1360 NEXT T 

1370 GOTO 390 

1380 INPUT R* 

1390 RETURN 

1 400 DA T" A ■•- 1 , 1 , 4,4,85 

1410 DATA 0,-1,0,4,73 

1420 DATA 1 , -1 ,4,4, 79 

1430 DATA -i. ,0, --4,0, 7 4 

1440 DATA 1 ,0,4,0, 76 

1450 DATA 1 , 1 , -4, 4, 77 

1460 DATA 0, 1 ,0,-4,44 

147 DATA 1 , 1 ,4,-4,46 

TRS-80 Color Computer 

1 REM *** POISON IVY TRS-80 COLOR *** 
10 GOTO 3000 

99 REM *** JOYSTICK ROUTINE *** 

100 H=JOYSTK(0) 
110 V=J0YSTK(1) 

120 IF H<15 THEN YI=0: X I=-l : RETURN 

130 IF H>47 THEN YI=0 : X 1=1 : RETURN 

140 IF V<15 THEN X 1=0: YI=-1 : RETURN 

150 IF V>47 THEN X 1=0: YI=1 : RETURN 

160 YI=0:X 1=0 -.RETURN 

199 REM *** READ KEYBOARD ROUTUINE *** 

£00 LI=0:XI=0:YI=0 

210 KE*=INKEY* 

£20 IF KE*="" THEN RETURN 

£30 IF KE*=KT*(LI) THEN YI=YT (LI ): X I=XT (LI ): RETURN 

£40 LI=LI+1:IF LI <8 THEN £30 

£50 RETURN 

399 REM *** DRAW IVY (CAN YOU BELIEVE IT?) *** 

400 X=RND(510) 

410 IF X=££4 THEN 400 
4£0 C=l£8+16*(0)+15 
430 PRINT@X,CHR*(C) ; 
440 RETURN 

499 REM *** MAIN LOOP *** 

500 CO=0:RO=14:L=0 
510 SET (CO, RO, 5) 
5£0 IF L=l THEN £000 
530 FOR D=l TO £ 
540 NEXT D 

550 RESET (CO, RO) 

560 ON J GOSUB 100, £00 

570 RO=RO+YI:CO=CO+XI 

580 IF R0>31 THEN R0=31 

590 IF RO=<0 THEN RO=0 

600 IF CO<0 THEN CO=B 

610 IF C0>63 THEN 1000 

6£0 IF POINT (CO, R0)=1 THEN L=l 

630 X=X+1 

640 IF X/6=INT(X/6) THEN GCSUB 400 

650 GOTO 510 
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999 REM *** COMPLETED MAZE *** 


1800 


CLS 


1010 


FOR T=l TO 100 


1020 


PRINT "YOU MADE IT! "; 


1030 


FOR D=l TO 10 


1040 


NEXT D 


1050 


NEXT T 


1060 


CLS:S=S+1 


1070 


PRINT "YOUR SCORE IS:"S 


10B0 


PRINT 


1090 


IF S>HS THEN HS=S 


1100 


PRINT "THE HIGH SCORE IS:"HS 


1110 


DI=DI+20 


1120 


PRINT 


1130 


GOTO 2080 


1999 


REM *** YOU LOSE *** 


2008 


CLS 


2010 


PRINT "YOU LOSE, YOU HAVE POISON IVY. " 


2028 


PRINT 


2830 


PRINT "YOUR FINAL SCORE IS:"S 


2840 


PRINT 


2850 


PRINT "THE HIGH SCORE IS:"HS 


2068 


PRINT 


2870 


S=0 


2080 


PRINT "PRESS (ENTER) TO PLAY AGAIN." 


2090 


GOSUB 4008 


2100 


RESTORE 


2110 


DUM*=INKEY* 


2120 


IF DUM*<> "" THEN 2110 


2130 


CLS (8) 


2140 


GOTO 3160 


2999 


REM *** INTRODUCTION *** 


3800 


CLS 


3010 


PRINT "ARE YOU USING A JOYSTICK (Y/N)?" 


3828 


J*=INKEY*:IF J$="" THEN 3828 


3838 


IF J*="Y" THEN J=1:G070 3148 


3848 


IF J$<> "Y" THEN J=2 


3050 


CLS 


3060 


PRINT "THE DIRECTION KEYS ARE:" 


3078 


PRINT 


3080 


PRINT "U I 0" 


3098 


PRINT "J L" 


3188 


PRINT "M , 


3118 


PRINT 


3128 


PRINT "PRESS (ENTER) TO BEGIN." 


3138 


GOSUB 4888 


3148 


CLS(8) 


3158 


DI=58 


3159 


REM *** LOAD DIRECTION VARIABLES *** 


3168 


FOR 1=8 TO 7:READ KT*(I):NEXT 


3178 


FOR 1=8 TO 7:READ XT(I):NEXT 


3188 


FOR 1=0 TO 7:READ YT(I):NEXT 


3198 


FOR T=l TO DI 


3288 


GOSUB 488 


3218 


NEXT T 


3228 


GOTO 588 


3999 


REM *** WAIT ROUTINE *** 


4880 


INPUT R* 


4018 


RETURN 
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5000 DATA ", ", ". ",L, 0, I,U, J, M 




5010 DATA 0,1,1,1,0,-1,-1,-1 




5020 DATA 1,1,0,-1,-1,-1,0,1 




TRS-80 Model III and Model 4 




1 REM *** POISON IVY TRS-BO MODELS 3 AND 4 CASS. AND MODEL 3 DISK 


BASIC *** 


10 GOTO 3000 




199 


REM *** READ KEYBOARD ROUTINE *** 




200 


LI=0: xi=o: YI=0 




210 


KE*=INKEY* 




220 


IF KE*="" THEN RETURN 




230 


IF KE*=KT*(LI) THEN YI=YT (LI ): XI = XT (LI ): RETURN 




240 


LI=LI + l:IF LK8 THEN 230 




250 


RETURN 




399 


REM *** DRAW IVY *** 




400 


X=RND(1022) 




410 


IF X=512 THEN 400 




430 


PRINT@X,CHR*<191> ; 




440 


RETURN 




499 


REM ***, MAIN LOOP *** 




500 


co=o:ro=25:l=o 




510 


SET(CO.,RO) 




520 


FOR D=l TO 2 




530 


NEXT D 




540 


IF L=l THEN 2000 




550 


RESET (CO, RO) 




560 


GOSUB 200 




570 


RO=RO+Y I : CO=CO+X I 




580 


IF R0>47 THEN R0=47 




590 


IF R0<0 THEN R0=0 




600 


IF C0<0 THEN C0=0 




610 


IF CO > 127 THEN 1000 




620 


IF POINT(CO,RO) THEN L=l 




630 


X = X+1 




640 


IF X/6=INT(X/6) THEN GOSUB 400 




650 


GOTO 510 




999 


REM *** COMPLETED MAZE *** 




1 OOC 


CLS 




101C 


FOR T=l TO 100 




1020 


PRINT "YOU MADE IT! "; 




1 03C 


FOR D=l TO 10 




104C 


NEXT D 




1 05C 


NEXT T 




1 06C 


CLS:S=S+1 




107C 


PRINT "YOUR SCORE IS: "S 




108C 


> PRINT 




109C 


IF S>HS THEN HS=S 




HOC 


PRINT "THE HIGH SCORE IS: "HS 




me 


DI=DI+50 




1 1 2<: 


PRINT 




1 1 3d 


GOTO 2080 




199S 


REM *** YOU GET THE ITCHES *** 




2 OOC 


CLS 




20 1C 


PRINT "YOU LOSE! YOU HAVE POISON IVY!!!" 




202C 


PRINT 




203C 


PRINT "YOUR FINAL SCORE IS: "S 




204C 


PRINT 




205C 


PRINT "THE HIGH SCORE IS: "HS 




206C 


PRINT 
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2070 


S=0 






2080 


PRINT 


"PRESS (ENTER) 


TO PLAY AGAIN. " 


2090 


GOSUB 


4000 




2 1 00 


RESTORE 




2110 


CLS 






2120 


SOTO 3160 




2999 


REM *** INTRODUCTION 


»»» 


3000 


CLS 






3060 


PRINT 


"THE DIRECTION 


KEYS ARE: " 


3070 


PRINT 






3080 


PRINT 


TAB(7)"U I 


0" 


3090 


PRINT 


TAB(7) "J 


L" 


3 1 Od) 


PRINT 


TAB(7)"M , 


II 


3110 


PRINT 






3120 


PRINT 


"PRESS (ENTER) 


TO BEGIN. "; 


3130 


GOSUB 


4000 




3140 


CLS 






3150 


DI=100 




3159 


REM *** LOAD DIRECTION VARIABLES *** 


3160 


FOR 1 = 


=0 TO 7: READ KT*(I):NEXT 


3170 


FOR 1 = 


=0 TO 7: READ XT(I):NEXT 


3180 


FOR 1 = 


=0 TO 7: READ YT(I):NEXT 


3190 


FOR T= 


= 1 TO DI 




3200 


GOSUB 


400 




3210 


NEXT T 




3220 


GOTO 500 




3999 


REM *** WAIT ROUTINE 


**# 


4000 


INPUT 


R* 




4010 


RETURN 




5000 


DATA 


i n t ii 


J,M 


50 1 


DATA 0,2, 2, 2, 0,-2, -2 




5020 


DATA 2,2,0,-2,-2,-2,0,2 



VIC-20 

1 REM *** POISON IVY VIC-EO *** 
10 GOTO 30IZHZ! 

99 REM *** JOYSTICK ROUTINE *** 

100 POKE 37154, 1 £7 

110 XTS=PEEK(3715£)AND 1£8 

120 POKE 37154,255 

130 XT*=XT* OR (PEEK(37137)AND1£7) 

140 XI=SGN(XT'/.flNDl£8)-SGN(XTSflND16) 

150 YI=SGN(XT%AND8>-SGN<XTSAND4) 

160 RETURN 

199 REM *** READ KEYBOARD ROUTINE *** 

£00 XI=0:YI=0:LI=0 

£10 GET KES 

££0 IF KE*=""THEN RETURN 

£30 IF KE*=KT*(LI) THEN YI=YT (LI ): X I=XT (LI ): RETURN 

£40 LI=LI+1: IFLI <8 THEN £30 

£50 RETURN 

399 REM *** DRAW IVY *** 

400 X=INT(RND(1)*££) 
410 Y=INT(RND(1)*£3) 

4£0 IF X=0 AND Y=ll THEN 400 
430 IF X=l RND Y=ll THEN 400 
440 POKE SB+X+£2#Y, 88 
450 POKE CB+X+2£*Y, 5 
460 RETURN 
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499 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 

600 

610 
620 
630 
640 
650 
999 

1000 
1010 
1020 
1030 
1050 
1060 
1070 
1080 
1090 
1100 
1110 

1120 
1130 
1140 
1150 
1999 

2000 
2010 

2020 
2030 
2040 
2050 
2060 
2070 



*** 



IF 
IF 
IF 
IF 



2090 

2100 

2110 
£120 
2130 
2140 
2299 

3000 
3010 

3020 
3030 
3040 
3050 
3060 
3070 
3080 



REM *** MAIN LOOP 
CO=0:RO=llsL=0 
POKE CB+H1+22*H£,0 
POKE CB+C0+22*R0, 1 
POKE SB+C0+22*R0, 43 
IF L=l THEN 2000 
H1=C0:H2=R0 
ON J GOSUB 100,200 
RO=RO-YI:CO=CO-XI 
IF R0>22 THEN R0=22 
RO<0 THEN RO=0 
CO<0 THEN CO=0 
CO) 21 THEN 1000 
PEEK<SB+C0+22*R0)=88 THEN L=l 
X=X+1 

IF X/6=INT(X/6)THEN GOSUB 480 
GOTO 510 
REM *** COMPLETED MAZE *** 

PRINT CHR*(147) 

FOR T=l TO 100 

PRINT "YOU MODE IT! " -, 

POKE 36879, INT ( RND < 1 > *7> +7 

NEXT T 

S=S+1 

IF S>HS THEN HS=S 

DI=DI+50 

PRINT CHR*(147) 

POKE 36879,232 

PRINT "YOUR SCORE IS:"S 

PRINT 

PRINT "THE HIGH SCORE IS:"HS 

PRINT 

GOTO 2080 

REM *** LOSE GAME *** 

PRINT CHR$(147) 

PRINT "YOU HAVE POISON IVY!" 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

S=0 

PRINT 

GOSUB 

RESTORE 

GET DUM* 

IF DUM*<> ""THEN £110 

PRINT CHR*(147) 

GOTO 3170 

REM *** INTRODUCTION *** 

PRINT CHR*(147) 

PRINT "USING A JOYSTICK (Y/N) 

GET J*: IF J*=""THEN 3020 

IF J*="Y"THEN J=l:GOTO 3140 

IF J*<> "Y"THEN J=£ 

PRINT CHR$< 147) 

PRINT "THE MOTION KEYS ARE:" 

PRINT 

PRINT "U I 0" 



"YOUR FINAL SCORE IS: "3 



"THE HIGH SCORE IS:"HS 



" (SHIFT) 

4000 



TO PLAY AGAIN 1 ' 
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3090 

3100 

3110 
3120 
3130 
3140 
3159 
3160 
3170 
3179 
3180 
3190 
3200 
3220 
3230 
3240 
3250 
3999 

4000 
4010 

4020 
5000 
5010 
5020 



PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
PRINT 



"J 
"M 



L" 



(SHIFT) TO BEGIN" 



"PRESS 

4000 

CHRSU47) 
REM *** INITIALIZE SCREEN 
SB=7680 : CB=38400 : I - 1 00 
POKE 36879, 9: POKE 650,128 



AND SCORE VARIABLES **# 



REM 
FOR 
FOR 
FOR 
FOR 



LOAD DIRECTION VARIABLES *** 
TO 7: READ KT* ( I ) :NEXT 

XT(I) :NEXT 

YT(I) :NEXT 



TO 
TO 
TO 



7 .-READ 
7: READ 
DI 



*** 

1=0 
1=0 
1=0 

T=l 
GOSUB 400 
NEXT T 
GOTO 500 
REM ♦♦♦ WAIT 
WAIT 653, 1 
WAIT 653, 1, 1 
RETURN 

DATA I,u, J, M, ", ", "J",L, 
DATA 0, 1, 1, 1,0,-1,-1,-1 
DATA 1, 1,0,-1,-1,-1,0, 1 



ROUTINE *** 
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BONUS PROGRAM #3 


WORD SCRAMBLE 


WORD SCRAMBLE is something like computer alphabet soup . 


Duons? bio, uh . . . nsoud? No, oh' Sound! You. got it and 


you 


'11 gel 


: 'em all when you sink your mind into WORD 


SCRAMBLER 


This mind teaser shows you a line of mixed up 


letters that you have to make a wrod.. ,uh. , .word out -of, 


Each time 


you guess a letter's correct location, the 


computer j. 


? r i nts a " I " u n d e r n e a t h i t „ B y u s i n g c 1 u. e s , 


you 


' 1 1 so] 


L v e even the m o s t c h a 1 1 e n g i n g w o r d s ,. E a c h t i m e 


you 


correc 


:tly pick the entire word, the computer shows you 


how 


many i 


Ties it took you to get. it,, To skip a word, 


type "N" and then hit ENTER or RETURN, 


ADAM 




1 


REM *** WORD SCRAMBLE ADAM *** 


10 


HOME 




20 


PRINT 


"WORD SCRAMBLE" 


30 


PRINT 




40 


PRINT 


"Try to unscramble words by" 


45 


PRINT 


"typing in guesses. The" 


50 


PRINT 


"computer will show you which" 


60 


PRINT 


"letters are in the correct" 


65 


PRINT 


"places." 


70 


PRINT 


"Use only CAPITALS!" 


80 


PRINT 


"Example: The computer prints:" 


85 


PRINT 


"SUEGS" 


90 


PRINT 


"The actual word is GUESS." 


100 


PRINT 


"If you type: GEUSS, the" 


105 


PRINT 


"computer will respond with" 


110 


PRINT 


"'10011', meaning the first," 


120 


PRINT 


"fourth, and fifth letters" 


130 


PRINT 


"are in the correct locations." 


140 


PRINT 




150 


PRINT 


"Press any key to continue." 


160 


GET n$ 


170 


u$ = » 


i it 


179 


REM *** read scrambled word *** 


180 


READ w$ 


190 


IP w$ 


= "0" THEN RUN 


199 


REM *** read actual word *** 


200 


FOR x 


= 1 TO LEW(w$) 


210 


READ ch(x) 


220 


u$ = u$+CHR$(ch(x)) 


230 


NEXT x 


240 


g = 1 




250 


HOME 




260 


PRINT 


"press 'N' then (RETURN) for" 


265 


PRINT 


"a new word." 


269 


REM *** guess loop *** 


270 


PRINT 




280 


PRINT 


"The scrambled word is:" 
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w$ 



290 PRINT 

300 PRINT " 

310 PRINT 

320 r = 

330 PRINT "Type your guess, the (RETURN)." 

340 PRINT 

350 INPUT g$ 

360 IF g$ = "N" THEN 170 

370 IF LEN(g$) > LEN(w$) THEN PRINT "Guess too long!": GOTO 280 

380 IF LEN(g$) < IEN(w$) THEN PRINT "Guess too short!": GOTO 280 

390 PRINT " "; 

400 FOR x = 1 TO IEN(w$) 

410 IF MID$(g$, x, 1) = MID$(u$, x, 1) THEN GOSUB 480 

420 IF MID$(g$, x, 1) <> MID$(u$, x, 1) THEN GOSUB 510 

430 NEXT x 

440 PRINT 

450 IF r = IEN(g$) THEN 530 

460 g = g+1 

470 GOTO 310 

479 REM *** correct letter routine *** 

480 PRINT "1 "; 
490 r = r+1 
500 RETURN 

509 REM *** incorrect letter routine *** 

510 PRINT "0"; 
520 RETURN 
530 HOME 

540 PRINT "You got it in "; g; " turn(s)!" 

550 PRINT 

560 PRINT "Press any key to play again." 

570 GET n$ 

580 GOTO 1 70 
•1000 DATA LETCICER,69,76,69,67,84,82,73,67,SGEAR00UUT,79,85,84,82,65, 
71 ,69,79 
1010 DATA 
1020 DATA 
1030 DATA 
1040 DATA 
1050 DATA 
69,76 
1060 DATA 
1070 DATA 
1080 DATA 
1090 DATA 
1100 DATA 



85,83,ACTANPEU0L,67,65,78,84,65,76,79,85,8O,69 
LABTEKSABL,66,65,83,75,69,84,66,65,76,76 

TANIRUC,67,85,82,84,65,73,78,TAMELPAC,80,76,65,67,69,77,65,84 
ONUSHCI ,67 ,85 ,83 ,72 ,73 ,79 ,78 ,¥0LCRADY,67 ,79 ,87 ,65 ,82 ,68 , 76 ,89 
DELIS ,83, 76 ,73,68,69, TARIUG, 71 ,85 ,73 ,84 ,65 ,82 , OWELT ,84 ,79 ,87, 

MUTES0C,67,79,83,84,85,77,69,Y0G0ILB,66,73,79,76,79,71 ,89 
ACRTEP, 67, 65, 82, 80, 69, 84, ARE RES, 69, 82, 65 ,83, 69, 82 
ELTKET,75,69,84,84,76,69,REUICTP,80,73,67,84,85,82,69 
IISGMYF,83,73,71 ,78,73 ,70,89 ,ORDAI ,82 ,65 ,68 ,73 ,79 
ZEERPAT,84,82,65,80,69,90,69,0 



Apple II and Apple He 



i i 
i o 

20 
30 
40 
50 
60 
70 
80 
90 
1 00 



VEM *** 
HOME 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT- 
PRINT 
PRINT 
PRINT 
PRINT 



WORD SCRAMBLE 
'WORD SCRAMBLE" 



APPLE *••** 



"TRY TO UNSCRAMBLE WORDS BY TYPING" 

"IN GUESSES. THE COMPUTER WILL SHOW YOU" 

"WHICH LETTERS ARE IN THE CORRECT PLACES. ' 

"EXAMPLE: THE COMPUTER PRINTS : SUEGS" 
"THE ACTUAL WORD IS GUESS. " 
"IP YOU TYPEt GEUSS, THE COMPUTER WILL" 
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110 PRINT "RESPOND WITH '10011', MEANING THE" 

120 PRINT "FIRST, FOURTH, AND FIFTH LETTERS ARE" 

130 PRINT "IN THE CORRECT LOCATIONS." 

140 PRINT 

150 PRINT "PRESS ANY KEY TO CONTINUE." 

160 GET N* 

170 U* = "" 

179 REM **# READ SCRAMBLED WORD *** 

180 READ W* 
190 IF W* = "O" THEN RUN 

199 REM *** READ ACTUAL WORD *** 

200 FOR X = 1 TO LEN iW*> 
210 READ CH<X> 
220 U* = U* + CHR* (CH<X)) 
230 NEXT X 
240 G = 1 
250 HOME 
260 PRINT "PRESS 'N' THEN (RETURN) FOR A NEW WORD" 

269 REM *** GUESS LOOP *** 

270 PRINT 

280 PRINT "THE SCRAMBLED WORD IS: " 

290 PRINT 

300 PRINT " "W* 

310 PRINT 

320 R = 

330 PRINT "TYPE YOUR GUESS. THEN PRESS (RETURN)." 

340 PRINT 

350 INPUT G* 

360 IF G* = "N" THEN 170 

370 IF LEN 

380 IF LEN 

390 PRINT " ' 

400 FOR X = : 

410 IF MID* 

420 IF MID* 

430 NEXT X 

440 PRINT 

450 IF R = LEN (G*> THEN 530 

460 G = G + 1 

470 GOTO 310 

479 REM *** CORRECT LETTER ROUTINE *-** 

480 PRINT "1"; 
490 R = R + 1 
500 RETURN 

509 REM **•* INCORRECT LETTER ROUTINE **■* 

5.10 PRINT "0": 

520 RETURN 

530 HOME 

540 PRINT "YOU GOT IT IN "6" TURN (5)!" 

550 FR I NT 

560 PRINT "PRESS ANY KEY TO PLAY AGAIN. " 

570 GET N* 

580 GOTO 170 

1 000 DATA LETC I CER , 69 , 76 , 69 , 67 , 84 , 82 , 73 , 67 , SGE AROOUUT , 79 , 85 , 84 , 82 , 65 , 

71 ,69,79 

1 1 DATA 85 , 83 , ACT ANPEUOL , 67 , 65 , 78 , 84 , 65 , 76 , 79 , 85 , 80 , 69 

.1 020 DATA LABTEKSABL , 66 ,65,83, 75 , 69 , 84 , 66 , 65 , 76 , 76 

1 03O DATA TAN I RUC . 67 ,85,82,84, 65 , 73 , 78 , TAMELPAC , 80 , 76 , 65 , 67 , 69 , 77 , 

65 , 84 



(G*> 


> LEN (W*) THEN PRINT "GUESS TOO LONG!": 


GOTO 280 


(G*) 

" a 


LEN <W*) THEN PRINT "GUESS TOO SHORT!" 


: GOTO 280 


« 

1 TO 


LEN (W*) 




(G*, 


X,l) = MID* (U*,X,1) THEN 60SUB 480 




(G*. 


X,l) < MID* (U*,X,.t) THEN GOSUB 510 
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1 040 DATA OIMUSHC I , 67 , 85 , 83 , 72 , 73 , 79 , 78 , WOLCRADY , 67 , 79 , 87 , 65 , 82 , 68 , 


76 , 89 


1050 DATA DELIS,83,76,73,68,69,TARIUG,71 , 85 , 73 , 84 , 65 , 82 , OWELT , 84 , 79 , 


87,69,76 


1 060 DATA MUTESOC , 67 , 79 , 83 , 84 , 85 , 77 , 69 , YOGO I LB , 66 , 73 , 79 , 76 , 79 , 7 1 , 89 


1 070 DATA ACRTEP , 67 , 65 , 82 , 80 , 69 , 84 , ARERES , 69 ,82,65, 83 , 69 , 82 


1 080 DATA ELTKET , 75 , 69 , 84 , 84 , 76 , 69 , REU I CTP , 80 ,73,67, 84 ,85,82,69 


1 090 DATA I I SGNYF , S3 ,73,71, 78 , 73 , 70 , 89 , ORDA I , 82 , 65 , 68 , 73 , 79 


1 1 00 DATA ZEERPAT ,84,82, 65 , 80 , 69 , 90 , 69 , 


Atari 


1 REM **•*- WORD SCRAMBLE ATARI #*■>■■ 


1 DIM IJt- (11) , G$ C 15 ) , W* ( 1 1 5 


20 D I M TEMP* ( 1 ) , R$ ( 1 ) 


30 PRINT CHR*(125) 


40 PRINT "WORD SCRAMBLE" 


50 PRINT 


60 PRINT "TRY TO UNSCRAMBLE WORDS BY TYPING" 


70 PRINT "YOUR GUESSES,, THE COMPUTER" 


80 PRINT "SHOWS YOU WHICH! LETTERS ARE"" 


on DpinT "TM "P-Jp rnppcrT di Arrrc n 


1 f-w ■, prr- r mt 


1 1. PRINT " E X A M P L E i: T H E C M F : ' I J T E P. P PINT S r. S I J E G S " 


120 PRINT "THE ACTUAL WORD IS GUESS, " 


1 : ■■ ;" > p p y n T "I r :: ' y n i j r y p f ; rc e i \ p. p ,. r h p com p h t f r w t i l " 


140 PRINT "RESPOND WITH '10011', MEANING THE" 


150 PRINT "FIRST, FOURTH, AND FIFTH LETTERS" 


160 PRINT "ARE IN THE CORRECT LOCATIONS,, " 


170 PRINT "PRESS (RETURN) TO CONTINUE:, " 


180 GOSUB 2000 


1 9 (-) 1 1 * —ii 1 1 


199 REM *** RE" AD SCRAMBLE WORD ■*** 


200 READ W$ 


210 IF W*-"0" T!-!EN RUN 


219 F1EM *•** READ ACTUAL WORD *■** 


220 F P X - 1 T L E N ( W $ ) 


230 READ CH 


?4('s TFMP$-~nHR* :CFR 


250 U$ < X , X ) -TEMP* 


9 /.., ["; |\ i c :: y r y 


OTA 17—1 


280 PRINT CNR:* (125) 


29(] pp ]• |\jt "i:,ppf;r; ' i\s ' "1 " L..j F-~ |\! ( f'i'F "Ti !F"T4 ') PT'iR jVFW l/infi'D" 


299 rem •*■*■* GUESS .LOOP *•** 


9 ■[ r-. p:>9 r j^jt 'irijc c:; r" p.", v "\ ivn:..; } rrp, j,inr,n r q n :< 


•_, j:.. *..•■ , 1 \ i, ! A . 

~? ■-■!■ <-\ o r> r i% i -i- ; , i .* 


340 PR I NT 


350 r<---o 


-r/.j-j P-i[jtmt ""fynp V'H! (R )"■'?: IT' 9<"' ti.jitki pprrq ( 9 r~~r j jp|\| \ ". 


380 INPUT G$ 


"T9ji t pr p;4:— !l !\! " "!"!■■ 1 P !\! igf; 


400 I" L.F'N ( 0* ' >! LN ( v't "■ THlW PRIN T "'GUESS t 00 LONG ' " ;■■ 00 "'"0 310 


T .'- l .. ; .!. ! t > ! *-■ \ '....' I-' .- '-. I...I...I •■! \ '."■! -K / 1 1 , 1..., 1 -, 1 1 \ .1. ! -i > '....' '-Jl.-\.J-..J , :..!'...! ■....■', i '....' I \ ! . „ ,...."...J ! ',...' •._•.!.■..■■ 

/] '"'i- - ■, \'.'.'.-y7.i t jv 1 - r 


430 FOR X--:!. TO !..EM(W$) 


440 I F G* ( X , X ) =U$ ( X , X ) THEN GOSUB 5 1 


4 50 If fjT(X,X)' : >U' : -'-' (X . X) "'"HEM G r JCUB !~,4("! 
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460 NEXT X 


470 PRINT 


4S0 IF 7 R=LEN(S$) THEN 560 


490 G=G+1 


500 GOTO 300 


509 REM *** CORRECT LETTER ROUTINE *** 


510 PRINT "1"; 


520 R=R+1 


530 RETURN 


539 REM **•* INCORRECT LETTER ROUTINE *** 


540 PRINT "0 ! ' = 


550 RETURN 


560 PRINT CHR:f(125) 


570 PRINT "YOU GOT H" TM ";R- ,! TUPNURi'" 


580 PRINT 


590 PRINT "PRESS (RETURN) TO PLAY AGAIN.," 


600 GOSUB 2000 


610 GOTO 190 


1 000 DATA LETC I CER , 69 , 76 , 69 , 67 , 84 , 82 , 73 , 67 , SGEAROOUUT ,, 79 , 85 , 84 , 82 , 65 , 


~7 1 t- a ~r a 

! J. , '..J ,• , / / 


'I f > 1 f'i HAT A « S o ~ z c r ~ " r A h I r -"' P ' ' n 1 t- " 7 .»'-. '■", "■' P P 1 '-i c ~ " 7 »'■• "' ° ° c " C! •"' ( - ° 


1 |-|Hn n/NTA 1 APTFI-'i-^Pi •'-»•■ '' c::: 'l"'- " 7r ~, /-C) 0/: ,'../.. /.. c-; "7/. -7/. 


1030 DATA TAN I RUG , 67 , 85 , 82 , 04 , 65 , 73 , 78 , TAMELPAC , 80 , 76 , 65 , 67 , 69 ,, 77 , 65 , 84 


1 040 DATA ONUSHC I , 67 , 85 , 83 , 72 , 73 , 79 ., 78 , WOLCEADY ,, 67 , 79 , 87 , 65 , 82 ,, 68 , 76 , 89 


1 OSO nA T/, i TIP 1 Tf- c, ~ r ~ / ->'i "'"' /-P 'Si TrtK' "I'MP " 7 '' o<7 "7"r a a /.. k; o'"> n|jjc::i r o/i ~/o p"/ 


69,76 


1 060 DATA MUTESOC , 67 , 79 , 83 , 84 , 85 , 77 , 69 , TOGO I LB , 66 v 73 , 79 , 76 ,, 79 , 7 1 , ; 89 


1 070 DATA ACRTEP ,67,65, 82 , 80 , 69 , 84 , ARERES , 69 , 82 , 65 , 83 , 69 , 82 


1 080 DATA EL.TKET , 75 , 69 , 84 , 84 , 76 , 69 , REU I CTP , 80 , 73 , 67 , 84 : , 35 ,, 87 , 69 


1 090 DATA I I SGNYF , 83 ,73,71, 70 , 73 , 70 , 89 , ORDA 1,82, 65 ,, 68 , 73 , 79 


1 1 00 DATA ZEERPAT , 84 , 82 , 65 , 80 ,, 69 , 90 , 69 v 


1999 REM **•* WAIT ROUTINE ■*•** 


2000 INPUT R::1" 


2010 RETURN 


IBM PC 


10 REM »*x- WORD SCRAMBLE IBM PC *»* 


3 ! :: ' R I N T ' ' W R D 8 C R A M B L E ' ' 


40 PRTh-iT 


50 PRINT "UNSCRAMBLE WORDS BY TYPING" 


60 PRINT "YOUR GUESSES,, THE COMPUTER" 


70 PRINT "SHOWS YOU WHICH LETTERS ARE" 


80 >"" = F < I M T "CO R R E C T , i :; G R E X A M P L E i " 


90 PRIM"!' 


IOC) PRINT "THE rrWUTFR PR'!' NTS, ' P;l !EG. <T ; ' , " 


I ;! PRINT "THE AC'I'UAi WORD IS ' GLlp 98 ' . " 


1 ':>0 PRTMT "Tf" VDi ! TVPE ' RRI IFiR ' , T|-|F"" 


1.30 P'RINT "COM PI. ITER WILL RESPOND WITH" 


140 PRINT " "i 001 1'' , MEANING THE FIRST," 


1 50 i : • R I NT " F U R "I" H , % l~ I ! ::; "1 1 i L E "! "T i: R S A R f. '-' T N ' ' 


1 6 ( ■> F : R I N "!" ' ' C R R E C "I" L f Z A "! ' 1 N S „ ! ;:: ' R E S S A N Y ' ' 

■' *7i""-i nivf KIT !M/|"V "i*n T.-.f.;.r..': ')" i\l ,: - 


.'. / U ! 1 •. .'. i ! ! I .'.... 1 i "... i .'.J!..*..: .,. ! i u 

1.80 AT^INLEY* 


190 IE A$~" ,! THEN 180 


2()0 [.!■$=" " 


210 RE'M *•** READ SCRAMBLED WORD *** 


220 READ W* 


230 IF" W3 : - :; "0" THEN RUN 
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240 


FOR X=l TO LEN(W*) 


250 


READ CH(X) 


260 


U*==U* + CHR$(CH(X) .-' 


2 70 


NEXT X 


280 


6- 1 


290 


CLS 


300 


PRINT "PRESS 'N' + (ENTER)" 


3 1 


PRINT "F : 0R A MEW WORD." 


320 


REM *** GUESS LOOP *** 


330 


PR INI 


340 


PRINT "THE SCRAMBLED WORD IS:" 


350 


PRINT 


360 


PRINT " "W* 


370 


PRINT 


380 


R-O 


390 


PRINT "TYPE YOUR GUESS," 


400 


PRINT "THEN PRESS (ENTER)." 


4 1. 


PR I II 1" 


4 20 


INPUT Crfc 


430 


IF G*-'"N" THEN 200 


44 


IF LEN(G*> >L.EN(W*) THEN PRINT "GUESS TOO LONG!": GO TO 340 


450 

.•i i.. i "i 


IF I..E::N(6*)<LEN«W*) THEN PRINT "GUESS TOO SHORT '" s GOT 340 

'-> l-. : lilt " ' '' » 


'tO'..' 

470 


i ! '-. J. 1 ! 1 i. 

FOR -i-i 10 LEN(W*o 


4S0 


1 F II I D$ \ G* „ X „ 1 ) ==T*I 1 0* C U * , X , 1 ) THEN GOSUB 560 


490 


I F M I D* i. G* „ X ., 1 ) < :• N I D £ ( U* , X , 1 ) I HEN GOSUB 600 


50o 


NEXT X 


5 1. 


PR. 1 N 1 


52" 
r "t ~ T .o 


IF E-4...EN 99* ) IHEN 620 

f"'; — )"1 .1. 1 


540 


*.".' — '_Ti ' .1 

GOTO S'SO 


550 


REM ■*** GOERECT LETTER *** 


560 


PRINT "l"r 

r.:;. i:;- .. f .. \ 


580 


1 v 1 '. > .1. 

RETURN 


590 


R E M * * * .!.' 1 ■•! C R R E C T !.... E T ' 1" E F : < * * * 


,;-,( \i i 


PRINT "0":; 


6 :i. o 


RE TURN 

i i c: 

'.... I-. :../ 


,-", ■', 1 1 

6 40 
■75' > 


PRINT "GO 1 1 1" IN "G" TURN'S) " 

or;,* t ].i r 


PR] Ml "PRESS ON,' TFy TO RUN AGAIN" 


66''.! 


A*- ANKEy* 


a ' o 


IF tv$=-"" THEM 660 


68 O 


go i n 200 


:l.0o< 


..' DO 1 A 1. ,.E ! C I CER ,. 69 ,, 7 6 , 69 „ 6 "' , 84 , 82 „ 7 3 „ 6 7 


101 


"j D A T O S G E v 1 R l.U !'! ' . / 9 , 8 5 , 8 T , 8 2 , 6 5 „ 7 1 ., 6 9 , 7 9 „ 8 5 , 3 3 


102 


) DA lo ;■ .i. : T Al IRE.UOL „ 6 7 , 65 „ 78 , 8 4 , 65 .. / 6 , ? 9 , 85 , 80 „ 6 7 


1 ■' .i : r 


:.» Dh T A ALB 1 ELSABL , 66 , 65 . 83 „ 7 5 , 69 , Q'\ , 66 „ 65 , 7 6 , 7 6 


104' 


'< DO ! m . I'hN I RUC , 6 7 „ 85 , S2. , 84 ,65,7 3 , 78 , T AMELPhC „ SO , 7 6 , 65 , 6 / , 69 ., 7 7 H 65 , 84 


105 


".:■ DA ! G ONUSCH 1 „ 6 7 , 85 , S3 ., 7 2 . 73 , 7 9 , 7 8 ,- WOLCF:AD y „ 67,79, 8 7 , 65 , 82 ., 68 , 7 6 ,. 8? 


1 06< 


.:■ Dol A DELIS, S3, 76, 73.. 63, 69, M-iRIUG,, 71 , 85 773 , 84 , 65 , 32 „ OWEL T H 84 , 79 , 87 „ 


ii'/i , 


76 


:! 07 


'i IVY' ,'s Ml ! i pcnr .'..."' "o o -■•; o/i oet. '/ "/ it., o •.. ("i(':i"i T I P t~ l. "7 r '/;:; v ,;.. ■> ■.::/ '■ 1 oo 


1 OS 


i {■■,.", i" / , /.f'p f c:. p.> .!.. i-| o-\> qn i.t.:> o/i / \ c- p !.";■ t:~ c; ,;..:::; 0''.> ,;.."=:: o"-r •'. o o-".' 


10? 


"' V, A I G Fl M : T :: ! « ' c: i /- ■■■j' 8 T r R {[„'?,*■-. A9 pF"! !]' '"'.Tp „ R(') 7 :: . /■■■'? H4 p~i . R'7 , f9 


I 1 '.,' 


7 i: -• f--| !"h .!.' 1 SON > F , 83 , 7'3 , 7' i ,, 78 , 7 3 , 70 , 89 „ ORD A I , 82 „ 65 , 68 „ 73 ,79 


:l. 1 1. 


.> DA i A 7 E ERT'A ! ., 8 4 „ 82 , 65 ., 80 , 69 „ 9'.) , 69 , (..) 
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Commodore 64 

1 REM *** WORD SCRAMBLE 64 *** 

10 PRINT CHR*(147> 

£0 PRINT "WORD SCRAMBLE" 

30 PRINT 

40 PRINT "TRY TO UNSCRAMBLE WORDS BY TYPING" 

50 PRINT "IN GUESSES. THE COMPUTER WILL SHOW YOU" 

60 PRINT "WHICH LETTERS ARE IN THE CORRECT PLACES. " 

70 PRINT 

80 PRINT "EXAMPLE: THE COMPUTER PRINTS, ' SUEGS' . " 

90 PRINT "THE ACTUAL WORD IS 'GUESS'." 

100 PRINT "IF YOU TYPE ' GEUSS' , THE COMPUTER WILL" 

110 PRINT "RESPOND WITH '10011', MEANING .THE" 

120 PRINT "FIRST, FOURTH, AND FIFTH LETTERS ARE" 

130 PRINT "IN THE CORRECT LOCATIONS." 

140 PRINT 

150 PRINT "PRESS (SHIFT) TO CONTINUE." 

160 GOSUB 3000 

170 U*="" 

179 REM *** READ SCRAMBLED WORD *** 

180 READ W* 

190 IF W*="0" THEN RUN 

199 REM *** READ ACTUAL WORD *** 

£00 FOR X = l TO LEN(W*), 

£10 READ CH(X) 

££0 U*=U*+CHR* (CH ( X ) ) 

£30 NEXT X 

£40 6=1 

£50 PRINT CHR*(147) 

£60 PRINT "PRESS ' N' THEN (RETURN) FOR A NEW WORD" 

£69 REM *** 6UESS LOOP *** 

£70 PRINT 

£80 PRINT "THE SCRAMBLED WORD IS:" 

£90 PRINT 

300 PRINT " "W* 

310 PRINT 

3£0 R=0 

33id PRINT "TYPE YOUR GUESS, THEN PRESS (RETURN)." 

340 PRINT 

350 INPUT 6* 

360 IF G$="N" THEN 170 

370 IF LEN(G*)>LEN(W*> THEN PRINT "GUESS TOO LONG! E! :GOTO £80 

380 IF LEN(G*) <LEN(W$) THEN PRINT "GUESS TOO SHORT:":SOTO £80 

390 PRINT " " ; 

400 FOR X=l TO LEN(WS) 

410 IF MID*(G*, X, 1)=MID*(U*, X, 1) THEN GOSUB 480 

4£0 IF MID*(G$, X, 1) <>MID$(u$, X, 1) THEN GOSUB 510 

430 NEXT X 

440 PRINT 

450 IF R=LEN<G*> THEN 530 

460 G=G+i 

470 GOTO £70 

479 REM *** CORRECT LETTER ROUTINE *** 

480 PRINT "1" ; 
490 R=R+1 

500 RETURN 

509 REM *** INCORRECT LETTER ROUTINE *** 
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510 PRINT "13"; 


520 RETURN 


538 PRINT CHR*(147) 


540 PRINT "YOU GOT IT IN"G"TURN (S) ! " 


550 PRINT 


560 PRINT "PRESS (SHIFT) TO PLOY AGAIN. " 


570 BOSUB 3000 


580 GOTO 170 


1000 DATA LETCICER, 69, 76, 69, 67, 84, 82, 73, 67, SGEAROOUUT, 79, 85, 84, 82, 65, 71 , 


69,79 


1010 DATA 85, 83, ACTANPEUOL, 67, 65, 78, 84,65, 76, 79,85, 80, 69 


1020 DATA LABTEKSABL, 66,65, 83, 75, 69, 84,66,65, 76,76 


1030 DATA TANI RUC, 67, 85, 82, 84, 65, 73, 78, TAMELPAC, 80, 76, 65, 67, 69, 77, 65, 84 


1040 DATA ONUSHCI, 67, 85, 83, 72, 73, 79, 78, WOLCRADY, 67, 79, 87, 65, 82, 68, 76, 89 


1050 DATA DELIS, 83, 76, 73, 68, 69, TARIUG, 71 , 85, 73, 84, 65, 82, OWELT, 84, 79, 87, 


69,76 


1060 DATA MUTESOC, 67, 79, 83, 84, 85, 77, 69, YOGCILB, 66, 73, 79, 76, 79, 71 , 89 


1070 DATA ACRTEP,67,65,82,80, 69, 84, ARERES, 69, 82, 65,83, 69, 82 


1080 DATA ELTKET, 75, 69, 84, 84, 76, 69, REUICTP, 80, 73, 67, 84, 85, 82, 69 


1090 DATA IISGNYF,83, 73, 71,78,73, 70, 89, ORDAI, 82, 65,68, 73,79 


1100 DATA ZEERPAT,S4,82,65,80,69,90,69, 


3000 WAIT 653, 1 


3010 WAIT 653, 1, 1 


3020 RETURN 


TI-99/4A 


1. REf! *** WORD SCRAMBLE Tl 99/4A •**# 


/. '■ •' L.i-n... !.. :..,!.... i.:.Hr\ 

20 PRINT "WORD SCRAMBLE" 


30 PRINT 


do PRINT "UNSCRAMBLE WORDS BY" 


50 PRINT "TYPING YOUR GUESSES, " 


60 PRINT "THE COMPUTER SHOWS" 


70 PRINT "YOU WHICH LETTERS ARE" 


80 PRINT "CORRECT, FOR EXAMPLE:" 

CW"i or."' T KIT 


7 *_' i l \ X !•■! ! 

ion PRINT "THE COMPUTER PRINTS," 


110 PRINT "'SEUGS'. THE ACTUAL" 


1 20 PRINT "WORD I S ' 6 U E SSL " 


130 PRINT "IF YOU TYPE ' GEUSS ' , " 


j. 40 PRINT "THE COMPUTER WILL. RESPOND" 


150 PR INI' "WITH '10011', MEANING" 


1 6 F' R J N T ' ! T HE F I R S T , F U R T H , & " 


170 PRINT "FIFTH LETTERS ARE IN" 


.1. S P R I N T ' ' T HE C R E E C T L C A T 1 N S „ " 


190 PRINT "PRESS (ENTER) TO PLAY" 


200 INPUT R* 


210 READ Ui* 


220 IF W:i-"-"0" THEN 230 ELSE 250 


230 RESTORE 


240 GOTO 210 


249 REM *•** READ SCRAMBLED WORD **•* 

•-;. r-- (•-, j | .^. .... i ■ n 


260 FOR X~-1 TO LENUW$) 


270 READ CH(X) 


200 UtfKJt&CHR* (CH (X) ) 


290 HEX!" X 


310 CALL CLEAR 
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320 PRINT "PRESS N THEN (ENTER)" 




330 PRINT "FOR A NEW WORD." 




340 PRINT 




349 REN *** GUESS LOOP *** 




350 PRINT "THE SCRAMBLED WORD IS: " 




360 PRINT 




370 PRINT " ";W$ 




380 PRINT 




390 R=0 




400 PRINT "TYPE IN YOUR GUESS," 




410 PRINT "THEN PRESS (ENTER)" 




420 PRINT 




430 INPUT G* 




440 IF G$="N" THEM 210 




450 IF LEN(G*) >LEN(W$)THEN 460 ELSE 480 




460 PRINT "GUESS TOO LONG!" 




470 GOTO 350 




480 IF LEN(G*)<LEN(W*) THEN 490 ELSE 510 




490 PRINT "GUESS TOO SHORT!" 




500 GOTO 320 




510 PRINT " "; 




520 FOR X==l TO LENCW*) 




530 IF SEG$ (6$ , X , 1 ) =SEG* <U* , X , 1 ) THEN 540 ELSE 550 




540 GOSUB 620 




550 I F SEG* ( G* , X , 1 ) < >SEG* ( U$ , X , 1 ) THEN 560 ELSE 570 




560 GOSUB 650 




570 NEXT X 




5S0 PRINT 




5 9 I F R ■-■- L E N ( W * ) T hi E N 6 7 




600 N~N •!•:!. 




610 GOTO 340 




/., -i o p r™ ivi .m. j«. m. n n r* p cr p ~'" ' ''•"' 7' t t" P .*. #. ..v. 




620 PRINT "1"; 




630 R^-R-i- 1 




640 RETURN 




649 REM **•* INCORRECT LETTER *#* 




650 PRINT "0"; 




660 RETURN 




£ "7 /"\ r A i i i"'- 1 lv a p 

w / *.' '...iV'it..-L„ i,.M,..i.-nf». 




/_ q,-"i pr- T kit >' r;.inT t t tki» . m. >■'■ ti JpKj f <:::■ \ n 




690 PRINT 




700 P R.I NT "PRESS (ENTER) TO PLAY" 




710 INPUT R* 




720 GOTO -10 




730 DATA L..ETC I CER , 69 , 76 , 69 , 67 , 84 , 82 v 73 , 67 , SGEAROOUUT ,79,85,84, 82 , 
t.v.) 7o c::> r ~: cj— • 


/.=:: "7 1 


740 DATA ACTAMPEUOL , 67 , 65 , 78 ,. 04 v 65 , 76 ,, 79 , 85 , 80 , 69 




~' r -ii'i T)'"\">"f- 1 A d T v - : V ^ A r -i '• ''■. -'•■ *- --, °" :r "'^ '■ ■ c ' a 4 ■■•-■''■■ '■■'"• "''■'•■ "' •= - 




760 DATA TAN 1 RUC , 67 ,, 85 , 82 , 84 ., 65 = 7 5 , 79 ,, T A! v iF LPAC , 80 , 76 ,, 65 .. 67 , 69 , 77 , 




.' "•.-■ l.M-l 1 h L.. l lM'..J ._M '!'..... ,L i, '-.> / t; V.J.J j '_'•._• ^ -' ..'... :; / -„< ,l .' / ^ / '...I , V ^ L J !. .. L.- 1 '■. '.'1 J-.' 1 r. '..J / ^ / .' .] '....' / ■; '..„"._' :•. '-...' i... .;. «...J'...i 1 


/'■•- .. 39 


780 DATA DEL. 1 8 .. 83 ,76 , 7Z , 68 ; , 69 , TAR I UG . 7 I , 85 , 73 , 84 ,65,82, OUEL'i" , 84 , '/ 


9 , 97 , 


i. ■'■;; "7 /_ 




790 DATA NUTESOC , 67 , 79 , S3 , 84 , 85 , 77 , 69 , YGGO I LB , 66 , 73 ,, 79 , 76 , 79 , 7 1 , C 


9 


800 DATA ACRT'EP , 67 , 65 , 82 , 80 , 69 , 84 , ARERES , 69 , 82 , 65 , 83 ; . 69 „ 82 




8 1 DATA ELTKET , 75 ', 69 , 84 , 84 , 76 , 69 , REU I CTP , 80 , 73. , 67 , 84 , 85 f 82 , 69 




820 DATA I I SGNYF ,,- 83 , 73 , 7 1 , 78 , 73. , 70 , 89 , ORDA I , 82 , 65 ., 68 , 73 „ 79 




830 DATA ZEERPAT,84,82,65,80,69 j 90 ,69^0 
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TRS-80 Color Computer 

1 REM *** WORD SCRAMBLE TRS-80 COLOR *** 

10 CLS 

£0 PRINT "WORD SCRAMBLE" 

30 PRINT 

40 PRINT "UNSCRAMBLE WORDS BY TYPING" 

50 PRINT "YOUR GUESSES. THE COMPUTER" 

60 PRINT "SHOWS YOU WHICH LETTERS ARE" 

70 PRINT "CORRECT. FOR EXAMPLE:" 

80 PRINT 

90 PRINT "THE COMPUTER PRINTS, ' SEUGS' " 

100 PRINT "THE ACTUAL WORD IS 'GUESS'." 

110 PRINT "IF YOU TYPE ' GEUSS' , THE" 

120 PRINT "COMPUTER WILL RESPOND WITH" 

130 PRINT "'10011', MEANING THE FIRST, " 

140 PRINT "FOURTH, & FIFTH LETTERS ARE IN" 

i50 PRINT "CORRECT LOCATIONS. PRESS ANY" 

160 PRINT "KEY TO BEGIN. " 

170 A*=INKEY* 

180 IF A*=""THEN 170 

190 U*="" 

199 REM *** READ SCRAMBLED WORD *** 

200 READ W* 

£10 IF W*="0" THEN RUN 

2£0 FOR X=l TO LEN(W*> 

£30 READ CH(X) 

£40 U*=U*+CHR*(CH(X>> 

£50 NEXT X 

£60 G=l 

£70 CLS 

£80 PRINT "PRESS ' N' + (ENTER)" 

£90 PRINT "FOR A NEW WORD. " 

£99 REM *** GUESS LOOP *** 

300 PRINT 

310 PRINT "THE SCRAMBLED WORD IS:" 

3£0 PRINT 

330 PRINT " "W* 

340 PRINT 

350 R=0 

360 PRINT "TYPE YOUR GUESS, " 

370 PRINT "THEN PRESS (ENTER) " 

380 PRINT 

390 INPUT G* 

400 IF G*="N" THEN 190 

410 IF LEN(G*)>LEN(W*) THEN PRINT "GUESS TOO LONG!":GOTO 310 

4£0 IF LEN(G*) (LEN(W*) THEN PRINT "GUESS TOO SHORT!":GOTO 310 

430 PRINT " "; 

440 FOR X=l TO LEN(W$) 

450 IF MID*(G*, X, 1)=MID*(U*, X, 1) THEN GOSUB 5£0 

460 IF MID*(G$, X, 1) (>MID*(U*, X, 1) THEN GOSUB 550 

470 NEXT X 

480 PRINT 

490 IF R=t_EN(G*) THEN 570 

500 G=G+1 

513 GOTO 300 

5i9 REM *** CORRECT LETTER *** 

5£0 PRINT "1": 
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530 R=R+1 




540 RETURN 




549 REM *** INCORRECT LETTER *** 




550 PRINT "0"; 




560 RETURN 




570 CLS 




580 PRINT "GOT IT IN "G" TURN(S)" 




530 PRINT 




600 PRINT "PRESS ANY KEY TO RUN AGAIN" 




610 A*=INKEY* 




620 IF A*="" THEN GOTO 610 




630 GOTO 130 




1000 DATA LETCICER, 69, 76, 69, 67,84, 82,73,67 




1010 DATA SGEAROOUUT, 79, 85, 84, 82, 65, 71,69, 79, 85, 83 




1020 DATA ACTANPEUOL, 67, 65, 78, 84, 65, 76, 79, 85, 80, 69 




1030 DATA ALBTEKSABL, 66, 65, 83, 75, 69, 84, 66, 65, 76, 76 




1040 DATA TANIRUC, 67, 85, 82, 84,65, 73,78, TAMELPAC, 80, 


76, 65, 67, 69, 77, 65, 84 


1050 DATA 0NUSHCI,67, 85, 83, 72, 73, 79, 78, WOLCRADY, 67, 


79, 87, 65, 82, 68, 76, 89 


1060 DATA DELIS, 83, 76, 73, 68, 69, TARIUG, 71, 85, 73, 84, 65, 82, OWELT, 84, 79, 87, 


69,76 




1070 DATA MUTESOC, 67, 79, 83, 84. 85, 77, 69, YOGOILB, 66, 73, 79, 76, 79, 71 , 89 


1080 DATA ACRTEP, 67, 65, 82, 80, 69, 84, ARERES, 69, 82, 65, 


83, 69, 82 


1090 DATA ELTKET,75, 69, 84,84,76, 69, REUICTP.80,73, 67 


',84,85,82,69 


1100 DATA IISGNYF, 83, 73,71,78, 73, 70, 89,0RDAI,82, 65, 


68,73,79 


1110 DATA ZEERPAT, 84,82, 65, 80,69, 90, 69, 




TRS-80 Model III and Model 4 




1 REM *** WORD SCRAMBLE TRS-80 MODELS 3 AND 4 *** 




10 CLS 




20 PRINT "WORD SCRAMBLE" 




30 PRINT 




40 PRINT "UNSCRAMBLE WORDS BY TYPING" 




50 PRINT "YOUR GUESSES. THE COMPUTER" 




60 PRINT "SHOWS YOU WHICH LETTERS ARE" 




70 PRINT "CORRECT. FOR EXAMPLE:" 




SO PRINT 




90 PRINT "THE COMPUTER PRINTS, 'SEUGS'" 




100 PRINT "THE ACTUAL WORD IS 'GUESS'." 




110 PRINT "IF YOU TYPE 'GEUSS' THE " 




120 PRINT "COMPUTER WILL RESPOND WITH" 




130 PRINT "'10011', MEANING THE FIRST," 




140 PRINT "FOURTH, & FIFTH LETTERS ARE IN" 




150 PRINT "CORRECT LOCATIONS. PRESS ANY" 




160 PRINT "KEY TO BEGIN." 




170 A*=INKEY* 




180 IF A*="" THEN 170 




190 U$="" 




199 REM *** READ SCRAMBLED WORD *** 




200 READ W* 




210 IF W*="0" THEN RUN 




220 FOR X=l TO LEN(W*> 




230 READ CH(X) 




240 U*=U*+CHR*(CH(X) ) 




250 NEXT X 




260 6=1 




270 CLS 




280 PRINT "PRESS 'N' + (ENTER) 




290 PRINT "FOR A NEW WORD." 




299 REM *** GUESS LOOP *** 
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3UO 
310 
320 
330 
340 
350 
360 
:.70 
3S0 
390 
400 
410 
420 
430 
440 
450 
460 
470 
490 
490 
500 
510 
519 
520 
530 
540 
549 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

R=0 

PRINT 

PR I NT 

PRINT 

INPUT 

IF 8* 

IF 

IF 



"THE SCRAMBLED WORD IS: 



'W* 



"TYPE YOUR SUESS, " 
"THEN PRESS (ENTER) 



8* 

"N" THEN 190 
LENCG*) >LEN(W*) 
LEN(G*XLEN(W*) 



THEN 
THEN 



PRINT 
PRINT 



"GUESS TOO LONG!":GOTO 310 
"GUESS TOO SHORT! " : GOTO 310 



PRINT " " ; 

FOR X=l TO LEN(W*> 

IF MID*(G*, X, 1)=MID*(U*,X, 1) 



THEN GOSUB 520 



IF MID*(G*, X, l)OMID*(U*,X, 1) THEN GOSUB 550 

NEXT X 

PRINT 

IF R=LEN(G*> THEN 570 

8=8+1 

GOTO 300 

REM *** CORRECT LETTER *** 

PRINT "1"; 

R=R+1 

RETURN 

REM *** INCORRECT LETTER *** 

PRINT "0"; 

RETURN 

CLS 

PRINT "GOT IT IN "G" TURN(S)" 

PRINT 

PRINT "PRESS ANY KEY TO RUN AGAIN" 

A*=INKEY* 

IF A*="" THEN GOTO 610 

GOTO 190 

LETCICER, 69, 76, 69, 67, 84, 82, 73, 67 
SSEAROOUUT, 79, 85, 84, 82, 65, 71 , 69, 79, 85, 83 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



ACTANPEUOL 
ALBTEKSABL 
TANIRUC,67 
0NUSHCI,67 



67,65,78,84,65,76,79,85,80,69 

66, 65, 83, 75, 69, 84, 66, 65, 76, 76 

85, 82, 84, 65, 73, 78, TAMELPAC, 80, 76, 65, 

85, 83, 72, 73, 79, 78, WOLCRADY, 67, 79, 87, 



67,69,77,65,84 
65, 82, 68, 76, 89 



69, 76 
710 DATA 



720 
730 
740 
750 



DATA 
DATA 
DATA 
DATA 



DELIS, 83, 76, 73, 68, 69, TARIUG, 71 , 85, 73, 84, 65, 82, OWELT, 84, 79, 87, 

MUTESOC, 67, 79, 83, 84, 85, 77, 69, YOGOILB, 66, 73, 79, 76, 79, 71 , 89 
ACRTEP , 67 , 65 , 82 , 80 , 69 , 84 , ARERES , 69 , 82 , 65 , 83 , 69 , 82 
ELTKET, 75, 69, 84, 84, 76, 69, REUICTP, 80, 73, 67, 84, 85, 82, 69 
I ISGNYF, 83, 73, 71 , 78, 73, 70, 89, ORDAI , 82, 65, 68, 73, 79 
ZEERPAT, 84, 82, 65, 80, 69, 90, 69, 



VIC-20 

1 REM *** WORD SCRAMBLE VIC-EO *** 
10 PRINT CHR*(147) 

"WORD SCRAMBLE" 

"UNSCRAMBLE WORDS BY" 
"TYPING YOUR GUESSES. " 
"THE COMPUTER SHOWS" 
"YOU WHICH LETTERS ARE" 



£0 


PRINT 


30 


PRINT 


40 


PRINT 


50 


PRINT 


£0 


PRINT 


70 


PRINT 
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60 PRINT "CORRECT. FOR EXAMPLE: " 

90 PRINT 

100 PRINT "THE COMPUTER PRINTS, " 

110 PRINT "'SEUGS'. THE ACTUAL" 

120 PRINT "WORD IS 'GUESS'. IF" 

130 PRINT "YOU TYPE ' GEUSS' , THE" 

140 PRINT "COMPUTER WILL RESPOND" 

150 PRINT "WITH '10011', MEANING" 

160 PRINT "THE FIRST, FOURTH, 4" 

170 PRINT "FIFTH LETTERS ARE IN" 

180 PRINT "THE CORRECT LOCATIONS. " 

190 PRINT "PRESS (SHIFT) TO PLAY" 

£00 GQSUB 3000 

£10 U*="" 

£19 REM *** READ SCRAMBLED WORD *** 

£20 READ W* 

£30 IF W*="0" THEN RUN 

£39 REM *** READ ACTUAL WORD *** 

£40 FOR X=l TO LEN(W*) 

£50 READ CH(X) 

£60 U*=U*+CHR* ( CH ( X ) ) 

£70 NEXT X 

£80 G=l 

£90 PRINT CHR*(147) 

300 PRINT "PRESS ' N' + (RETURN)" 

310 PRINT "FOR A NEW WORD. " 

319 REM *** GUESS LOOP *** 

3£0 PRINT 

330 PRINT "THE SCRAMBLED WORD IS:" 

340 PRINT 

350 PRINT " "W* 

360 PRINT 

370 R=0 

380 PRINT "TYPE YOUR GUESS, THEN PRESS (RETURN)" 

390 PRINT 

400 INPUT G* 

410 IF G*="N" THEN £10 

4£0 IF LEN(G*)>LEN(W*) THEN PRINT "GUESS TOO LONG!":GOTO 338 

430 IF LEN(G*) (LEN(W*) THEN PRINT "GUESS TOO SHORT!":GOTO 330 

440 PRINT " "; 

450 FOR X=l TO LEN(W$) 

460 IF MID*(G*, X, 1)=MID*(U*, X, 1) THEN GOSUB 530 

470 IF M-ID*(Q*, X, 1) <>MID*(U*, X, 1) THEN GOSUB 560 

480 NEXT X 

490 PRINT 

500 IF R=LEN(G*) THEN 580 

5i® G=G+1 

520 GOTO 3£0 

5£9 REM *** CORRECT LETTER ROUTINE *** 

530 PRINT "1" ; 

540 R=R+1 

550 RETURN 

559 REM *** INCORRECT LETTER ROUTINE *** 

560 PRINT "0" ; 
570 RETURN 

580 PRINT CHR*(147) 

590 PRINT "GOT IT IN"G"TURN (S) " 

600 PRINT 

618 PRINT "PRESS (SHIFT) TO PLAY" 
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6£0 60SUB 3000 

630 GOTO £10 

1000 DATA LETCICER, 69, 76, 69, 67, 84, 82, 73, 67, SGEfiROOUUT, 79, 85, 84, 8£, 65, 71 

69,79 

1010 DfiTfi 85, 83, fiCTfiNPEUOL, 67, 65, 78, 84, 65, 76, 79, 85, 80, 69 

1020 DfiTfi LfiBTEKSflBL, 66, 65, 83, 75, 69, 84, 66, 65, 76, 76 

1030 DATA TfiNI RUC, 67, 85, 82, 84, 65, 73, 78, TftMELPftC, 80, 76, 65, 67, 69, 77, 65, 84 

1040 DfiTfi ONUSHCI, 67, 85, 83, 7£, 73, 79, 78, WOLCRflDY, 67, 79, 87, 65, 8£, 68, 76, 89 

1050 DfiTfi DELIS, 83, 76, 73, 68, 69, TfiRIUG, 71, 85, 73, 84, 65, 8£, OWELT, 84, 79, 87, 

69,76 

1060 DATA MUTESOC, 67, 79, 83, 84, 85, 77, 69, YOGOILB, 66, 73, 79, 76, 79, 71, 89 

1070 DfiTfi fiCRTEP,67,65, 8£, 80, 69, 84, flRERES, 69, 8£, 65, 83, 69, 8£ 

1080 DATA ELTKET, 75, 69, 84, 84, 76, 69, REUICTP, 80, 73, 67, 84, 85, 8£, 69 

1090 DfiTfi IISGNYF,83, 73,71,78,73, 70, 89, 0RDfiI,8£, 65, 68, 73, 79 

1100 DfiTfi ZEERPfiT,84,8£, 65, 80, 69, 90, 69, 

3000 Wfl IT 653, 1 

3010 WAIT 653, 1, 1 

30£0 RETURN 
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BONUS PROGRAM #4 


SECRET CODES 


Now. 


SECRET CODES can be sent between you and a pal , And 


no one will know what you're saying ... without the SECRET 


CODE 


: encoder /decoder program. To use it convert a message 


intc 


code by selecting ENCODE -from the menu. Then type 


your 


message in normal English. Next, write the encoded 


message down as it appears on the computer screen. Return 


it the main menu and select DECODE. Then type the encoded 


message you wrote, and watch the computer decode the 


message. This program will decode all letters and 


numb 


ers, question marks, periods, and spaces. Commas 


aren 


't allowed and may cause errors on some computers. 


ADAM 


1 


REM *** SECRET CODE ADAM *** 


9 


REM *** dimension code arrays *** 


10 


DIM a$(39) 


20 


DIM c$(39) 


29 


REM *** initialize code arrays *** 


30 


FOR x = 1 TO 39 


40 


READ a$(x) 


50 


READ c$(x) 


60 


NEXT x 


69 


REM *** main menu *** 


70 


HOME 


80 


PRINT "SECRET CODE PROG-RAM" 


90 


PRINT 


100 


PRINT "Type the number of your choice" 


110 


PRINT "then press (RETURN)." 


120 


PRINT 


130 


PRINT "l)Encode a message" 


140 


PRINT "2)Decode a message" 


150 


PRINT 


160 


INPUT "Which one: "; ch 


170 


IP ch < 1 OR ch > 2 THEN 160 


180 


ON ch GOTO 200, 500 


199 


REM *** encode routine *** 


200 


HOME 


210 


PRINT "Type your message, two lines" 


220 


PRINT "max. at one time please! Use" 


225 


PRINT "only CAPITALS and no commas!" 


230 


PRINT "Type '0' and press (RETURN)" 


240 


PRINT "to go to the main menu." 


250 


PRINT 


260 


PRINT "What is your message" 


270 


INPUT m$ 


280 


IE m$ = "0" THEN 70 


290 


PRINT 


300 


PRINT "Now encoding..." 


310 


PRINT 


320 


PRINT "Here's the code:" 
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330 


PRINT 


340 


FOR x = 1 TO LEN(m$) 


350 


FOR m = 1 TO 39 


360 


IF MID$(m$, x, 1) = a$(m) THEN PRINT c$(m); 


370 


NEXT m 


380 


NEXT x 


390 


PRINT 


400 


PRINT 


410 


PRINT "Press any key to continue." 


420 


GET n$ 


430 


GOTO 70 


499 


REM *** decode routine *** 


500 


HOME 


510 


PRINT "Type your coded message, two lines" 


520 


PRINT "max. at one time please!" 


525 


PRINT "Use only CAPITALS." 


530 


PRINT "Type '0' and press (RETURN)" 


540 


PRINT "to return to the main menu." 


550 


PRINT 


560 


PRINT "What is the coded message" 


570 


INPUT c$ 


580 


IP c$ = "0" THEN 70 


590 


PRINT 


600 


PRINT "Now decoding..." 


610 


PRINT 


620 


PRINT "Here's the message:" 


630 


PRINT 


640 


FOR x = 1 TO LEN(c$) 


650 


FOR m = 1 TO 39 


660 


IF MID$(c$, x, 1) = c$(m) THEN PRINT a$(m); 


670 


NEXT m 


680 


NEXT x 


690 


PRINT 


700 


PRINT 


710 


PRINT "Press any key to continue." 


720 


GET n$ ' 


730 


GOTO 70 


1000 


DATA A,F," "," ",B,H,C,U,D,Y,E,Z,F,0,G,J,H,L 


1010 


DATA I,Q,J,S,K,¥,L,A,M,C,N,M,0,T,P,V,Q,P 


1020 


DATA R,K,S,D,T,G,U,B,V,E,W,I,X,N,Y,X,Z,R 


1030 


DATA .,.,0,9,1 ,7,2,3,3,0,4,2,5,1 


1040 


DATA 6,4,7,5,8,6,9,8,?,? 


Apple II and Apple He 

■( |""i | '" !-„■! ■.• -.- ,— .[■—,— . (—,!■— -!■■ r" ""i t\ r— .M">ni r— * ... .. .. 


9 R! 


In x ■■;•;■■* DIMENSION CODE ARRAYS *■*■*• 


1 J 


•)IM A* (39) 


20 J 


HM C*(39) 


'?■ cj i 


<EM *■■** INITIALIZE CODE ARRAYS *#* 


30 FOR X - 1 TG 39 


40 ! 


iEfi!) A:£ ( X ) 


50 1 


<Ehu D£ ( X ) 


60 ! 


>iEXT X 


69 f 


';EM *** MAIN MENU *** 


7 i 


■|n Mir 


or, r. 


-.i i ■-• T k it" i ! cr- tr i -■ r:> i::~ t r~- n n j ::■ r: ■■ i:> n r.?. i:.v /\ mh 


90 r 


i \ J. t *: i •- J l_ L.- -. -. l... ! --....- •>-> /...' !.... ; i \ : j '.J i y t "I : ! 
jp r mt 

I -. .i. 1 *H 1 


1 00 


PR TNT "'f'V'Pp THE M! !NB!~'R f'l !'■"■' Y'"!! !R P, i ■■! D T P. ¥■'■' " 
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10 AWESOME PROGRAMS FROM K-POWER 



110 


PRINT "THEN PRESS (RETURN)-" 




120 


PRINT 




1 30 


PRINT "1> ENCODE A MESSAGE" 




140 


PRINT "2) DECODE A MESSAGE" 




150 


PRINT 




160 


INPUT "WHICH ONE; " ; CH 




170 


IF CH < 1 OR CH > 2 THEN 160 




180 


ON CH GOTO 200,500 




199 


REM ■*** ENCODE ROUTINE *** 




200 


HOME 




210 


PRINT "TYPE YOUR MESSAGE, TWO LINES" 




2?0 


PRINT "MAX. AT ONE TIME PLEASE!" 




T-1CT- 


PRINT "MO COMMAS ALLOWED!" 




230 


PRINT "TYPE '0' AND PRESS (RETURN)" 




240 


PRINT "TO GO TO THE MAIN MENU. " 




250 


PRINT 




260 


PRINT "WHAT IS YOUR MESSAGE" 




270 


INPUT M* 




280 


IF M* = "0" THEN 70 




290 


PRINT 




300 


PRINT "NOW ENCODING, „ „ " 




310 


PRINT 




320 


PRINT "HERE'S THE CODE:" 




330 


PRINT 




340 


FOR X ^ 1 TO LEN (M*) 




350 


FOR M =■• 1 TO 39 




360 


IF MID* (M$,X,1> = A* CM) THEN PRINT C*CM> 


n 


370 


NEXT M 




380 


NEXT X 




390 


PRINT 




400 


PRINT 




4 1 


PRINT "PRESS ANY KEY TO CONTINUE, " 




420 


GET N* 




430 


GOTO 70 




499 


REM •*** DECODE ROUTINE *•#* 




500 


HOME 




5 1. 


PRINT "TYPE YOUR CODED MESSAGE, TWO LINES" 




520 


PRINT "MAX. AT ONE TIME PLEASE!" 




530 


PRINT "TYPE '0' AND PRESS (RETURN)" 




540 


PRINT "TO RETURN TO THEN MAIN MENU." 




550 


PRINT 




560 


PRINT "WHAT IS THE CODED MESSAGE" 




570 


INPUT 0* 




580 


IF CT = "0" THEN 70 




590 


PRINT 




600 


PRINT "NOW DECODING " 




6 1 


PRINT 




620 


PRINT "HERE'S THE MESSAGE;:" 




630 


PRINT 




640 


FOR X -= 1 TO LEN (C*) 




650 


FOR M == 1 TO 39 




660 


IF MID* (C$,X,1> =~ C$(M) THEN PRINT A*(M) 


■ 


670 


NEXT M 




680 


NEXT X 




690 


PRINT 




700 


PRINT 




7 1 


PRINT "PRESS ANY KEY TO CONTINUL , " 




720 


GET Nt- 




/ -..':■ 


GOTO 70 
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10 AWESOME PROGRAMS FROM K-POWER 



1000 DATA A,F," "," " ,B,H,C,U,D,Y,E,Z,F,0,6,J,H,L 


1010 DATA I,Q,J,S,K,W,L,A,M,C,N,M,0,T,P,V,Q,P 


1020 DATA R,K,S,D,T,G,U,B,V,E,W,I ,X ,N,Y,X,Z,R 


1 030 DATA . , . ,0,9,1,7,2,3,3,0,4,2,5,1 


1 040 DATA 6,4,7,5,8,6,9,8,?,? 


Atari 


1 REM *** SECRET CODE ATARI •*** 


9 REM •*** DIMENSION CODE ARRAYS **•* 


1 D I M m < 1 200 ) , N* ( 1 200 ) 


20 DIM C* (39) ,A$<39) 


30 DIM R*(l) , A1*<1> ,C1*<1) 


39 REM *** INITIALIZE CODE ARRAYS ■*■*■* 


40 FOR X-l TH ys? 


50 READ Al * 


60 A* (X) =A1* 


70 READ CI* 


80 C*(X>==Ci$ 


90 NEXT X 


99 REM *** MAIN MENU *•*•* 


100 PRINT CHR*(125) 


110 PRINT "SECRET CODE PROGRAM" 


120 PRINT 


130 PRINT "TYPE THE NUMBER OF YOUR CHOICE" 


140 PRINT "THEN PRESS THE (RETURN) KEY." 


ISO PRINT 


1 6 P R I N T " i ) E N C D E A M E S S A G E ' ' 


170 PRINT "2) DECODE A MESSAGE" 

| Of"-, pD r KIT' 


J. >_• *_-■ ! t\ .1. : *i ! 

190 PRINT "WHICH ONE":; 


200 INPUT Cl-i 


210 IF CH < 1. OR CH>2 THEN 190 


220 ON CH GOTO 230,500 


229 REM *** ENCODE ROUTINE ■*** 


.i^. •..."_•' ! '. 1. .(. 1 H i '.. .-i M '•.-!■- '■. .1. ..:..■...' .-' 


2 4 P R I NT ' ! T Y P E Y U R M E S S A G E , T W L I N E S , " 


250 P R I N T " M A X I M U M A N D N C Q M M a c P L. E A C E ' ' ' 


"ii. .--. EjpiMT i! Tver ',••-.' /\h|i"\ poroD i- !■;■ r T ' i Q !'■ ! 'l " 


270 PRINT "TO THE MAIN MENU,. " 


280 PRINT 


290 PRINT "WHAT IS YOUR MESSAGE" 


Trin T :■» l r.-.> i it M-i- 


\ i O TP M :&""■■" O " "!'!■■■! r"iV i ("if; 


320 PRINT 


'■•r;Tf;. p .'."; t kj t "hir'14 ENCOD'HyP- " 


340 PRINT 


3 5 F' R I N T ! ' H E R E ' S ' '!" ! i E C D E ; " 




"••' ~7 ■-"■, ir n r:n <::; -i t n i pr i\ : / w * '. 


"i; p; ,"j f: • |"i r_;> m -■_• i t rj -r o 


"■r o (• i t ir M ■*■ / r:> c ■> -• /\ i- ,•' m m ■, r !.,.[ cr i\ i r> rr. r kit r- ■*■ ,- m ivi \ „ 

-...' .' -..' X : 1 ■: -1-- \ ■_.* , ■_..' -■■ — I ->. ■■!■ '■.II,;!.- I ; '■ >..... in I ; \ j. I n i •■....■ ■ r '. 1 I , ! ! / : , 


400 NEXT M 


410 NEXT S 


»'!'•■("; PR t mt 
430 PR TNT 


440 PRINT "E'RPPP (RFTilRW; TH PPi\!7' T N' «F " " 


450 GO SUB 2000 


460 GOTO 100 


4.99 ppiv-j -x-.M-.j<- pF'pnnc RT1I P" T Wi~ >< * ■# 
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10 AWESOME PROGRAMS FROM K-POWER 



500 PRINT CHR*(125) 

510 PRINT "TYPE YOUR CODED MESSAGE, TWO LINES' 

520 PRINT "MAXIMUM - NO COMMAS PLEASE!" 

530 PRINT "TYPE '0' AND PRESS (RETURN)" 

540 PRINT "TO RETURN TO THE MAIN MENU." 

550 PRINT 

560 PRINT "WHAT IS THE CODED MESSAGE" 

570 INPUT N* 

580 IF N*="0" THEN 100 

590 PRINT 

600 PRINT "NOW DECODING...." 

610 PRINT 

620 PRINT "HERE'S THE MESSAGE:" 

630 PRINT 

640 FOR X=l TO LEN(N$) 

650 FOR M=l TO 39 

660 IF N* (X, X)=C$<M,M) THEN PRINT Af (M, M> :; 

670 NEXT M 

680- NEXT X 

690 PRINT 

700 PRINT 

710 PRINT "PRESS (RETURN) TO CONTINUE..";; 

720 GO SUB 2000 

730 GOTO 100 

1000 DATA A,F, , , B , H , C , U , D , Y , E , Z , F , , G , J , H , L 

1 1 O DATA I , Q , J , S , K , W , L , A , M , C , N , M , , T , P , V , Q , P 

1020 DATA R , K ,S,D,T,G,U,B,y,E^W,I,X,N,,Y,X 5 Z,R 

1030 DATA . , . ,0,9,1,7,2,3,3,0,4,2,5,1 

1040 DATA 6,4,7,5,3,6,9,8,?,? 

1999 REM *■** INPUT ROUTINE *•**• 

2000 INPUT R:f 
2010 RETURN 

Commodore 64 

1 REM *** SECRET CODE S4 *** 

9 REM *** DIMENSION CODE ARRAYS *** 

10 DIM A*<39) 
20 DIM C*(39) 

£9 REM *** INITIALIZE CODE ARRAYS *** 
30 FOR X=l TO 39 
40 READ A*(X) 
50 READ C*<X) 
60 NEXT X 

69 REM *** LE MAIN MENU *** 

70 PRINT CHR*(147) 

80 PRINT "SECRET CODE PROGRAM" 

90 PRINT 

100 PRINT "TYPE THE NUMBER OF YOUR CHOICE" 

110 PRINT "THEN PRESS THE (RETURN) KEY." 

120 PRINT 

130 PRINT "DENCODE A MESSAGE" 

140 PRINT "£) DECODE A MESSAGE" 

150 PRINT 

160 INPUT "WHICH ONE";CH 

170 IF CH<1 OR CH>2 THEN 160 

180 ON CH GOTO £00,500 

199 REM *** ENCODE ROUTINE *** 

£00 PRINT CHR*<147) 
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10 AWESOME PROGRAMS FROM K-POWER 



£113 


PRINT "TYPE YOUR MESSAGE, TWO LINES" 




££0 


PRINT "MAXIMUM. NO COMMAS ALLOWED!" 




£30 


PRINT "TYPE '0' AND PRESS (RETURN)" 




£40 


PRINT "TO GO TO THE MAIN MENU." 




£50 


PRINT 




£60 


PRINT "WHAT IS YOUR MESSAGE" 




£70 


INPUT M* 




£80 


IF M*="0" THEN 70 




£90 


PRINT 




300 


PRINT "NOW ENCODING " 




310 


PRINT 




3£0 


PRINT "HERE'S THE CODE:" 




33(S 


PRINT 




340 


FOR X=l TO LEN(M*> 




350 


FOR M=l TO 39 




360 


IF MID*(M*, X, 1>=A*(M> THEN PRINT C*(M>; 




370 


NEXT M 




380 


NEXT X 




390 


PRINT 




400 


PRINT 




410 


PRINT "PRESS (SHIFT) TO CONTINUE." 




4£0 


GOSUB 3000 




430 


GOTO 70 




499 


REM *** DECODE ROUTINE ♦** 




500 


PRINT CHR*(147) 




510 


PRINT "TYPE YOUR CODED MESSAGE, TWO LINES", 




5£0 


PRINT "MAX. AT ONE TIME, PLEASE!" 




530 


PRINT "TYPE '0' AND PRESS (RETURN)" 




540 


PRINT "TO RETURN TO THE MAIN MENU. " 




550 


PRINT 




560 


PRINT "WHAT IS THE CODED MESSAGE" 




570 


INPUT C* 




580 


IF C*="0" THEN 70 




590 


PRINT 




600 


PRINT "NOW DECODING " 




610 


PRINT 




6£0 


PRINT "HERE'S THE MESSAGE:" 




630 


PRINT 


„ 


640 


FOR X=l TO LEN(C*> 




650 


FOR M=l TO 39 




660 


IF MID*(C*, X, 1)=C*(M) THEN PRINT A*(M); 




670 


NEXT M 




680 


NEXT X 




690 


PRINT 




700 


PRINT 




710 


PRINT "PRESS (SHIFT) TO CONTINUE." 




7£0 


GOSUB 3000 




730 


GOTO 70 




1000 DATA A, F, " ", " ",B, H,C,U, D, Y, E, Z,F, 0, 6, J, H, L 




1010 DATA I,Q, J,S,K, W,L, A, M,C, N,M, 0, T, P, V, Q, P 




10£0 DATA R,K,B, D, T, G, U, B, V, E, W, I, X, N, Y, X, Z, R 




1030 DATA . , . , 0, 9, 1, 7, £, 3, 3, 0, 4, £, 5, 1 




1040 DATA 6,4,7,5,8,6,9,8,?,? 




£999 REM **♦ WAIT ROUTINE *** 




3000 WAIT 653, 1 




3010 WAIT 653, 1, 1 




30£0 RETURN 
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10 AWESOME PROGRAMS FROM K-POWER 


IBM PC 


1 REM *** SECRET CODE IBM-PC *** 


9 REM *** DIMENSION CODE ARRAYS *** 


10 DIM ft* (64) 


20 DIM C*<64) 


30 FOR X=l TO 40 


40 READ A*(X) 


50 READ C*(X) 


60 NEXT X 


69 REM *** MAIN MENU *** 


70 CLS 


80 PRINT "SECRET CODE PROGRAM" 


90 PRINT 


100 


PRINT "SECRET CODE PROGRAM" 


110 


PRINT "THEN PRESS (ENTER)." 


120 


PRINT 


130 


PRINT "1) ENCODE A MESSAGE" 


140 


PRINT "2) DECODE A MESSAGE" 


150 


PRINT 


160 


INPUT "WHICH ONE";CH 


170 


IF CH<1 OR CH>2 THEN 160 


180 


ON CH GOTO 200,500 


199 


REM *** ENCODE ROUTINE *** 


200 


CLS 


210 


PRINT "TYPE YOUR MESSAGE" 


220 


PRINT "2 LINES MAXIMUM AT A TIME" 


230 


PRINT "OR TYPE '0' AND PRESS" 


240 


PRINT " (ENTER) FOR MENU. " 


250 


PR I NT 


260 


PRINT "WHAT IS YOUR MESSAGE" 


270 


INPUT M* 


280 


IF M*="0" THEN 70 


290 


PRINT 


300 


PRINT "NOW ENCODING. . . " 


3.10 


PRINT 


320 


PRINT "HERE'S THE CODE:" 


330 


PRINT 


340 


FOR X=l TO LEN(M*) 


350 


FOR M=l TO 40 


360 


IF MID*(M*,X. 1)=A*(M) THEN PRINT C*(M>; 


370 


NEXT M 


380 


NEXT X 


390 


PRINT 


400 


PRINT 


410 


PRINT "PRESS (ENTER) TO CONTINUE" 


420 


GOSUB 3000 


430 


GOTO 70 


499 


REM *** DECODE ROUTINE *** 


500 


CLS 


510 


PRINT "TYPE A CODED MESSAGE" 


520 


PRINT "2 LINES MAXIMUM AT A TIME" 


530 


PRINT "OR TYPE '0' AND PRESS" 


540 


PRINT "(ENTER) FOR MENU." 


550 


PRINT 


560 


PRINT "WHAT IS THE CODE" 


570 


INPUT C* 


580 


IF C*="0" THEN 70 
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10 AWESOME PROGRAMS FROM K-POWER 



590 PRINT 




600 PRINT "NOW DECODING..." 




610 PRINT 




620 PRINT "HERE'S THE MESSAGE:" 




630 PRINT 




640 FOR X=l TO LENCC*) 




650 FOR M=l TO 40 




660 IF MID*(C*,X, 1)=C*(M) THEN PRINT A*(M);; 




670 NEXT M 




680 NEXT X 




690 PRINT 




700 PRINT 




710 PRINT "PRESS (ENTER) TO CONTINUE." 




720 GOSUB 3000 




730 GOTO 70 




1000 DATA A, F," "," " ,B,H,C,U,D„Y,E,Z,F,0,6,J,H 


L 


1010 DATA I ,Q,J,S,K ,W,L,A,M,C,N,M,0,T,P,V,Q,P 




1 020 DATA R , K , S , D , T , G , U , B , V , E , W , I , X , N , Y , X , Z , R 




1 030 DATA .,.,0,9,1,7,2,3,3,0,4,2,5,1 




1040 DATA 6,4,7,5.8,6,9,8,",",",",?,? 




3000 INPUT R* 




3010 RETURN 




TI-99/4A 




1 REM *** SECRET CODE T 1 99/4 A *** 




9 REM *** DIMENSION CODE ARRAYS *## 




10 DIM A* (41) 




20 .DIM C$ (41 ) 




30 FOR X = U. TO 39 




40 READ A-1"(X) 




50 READ C*(X) 




60 NEXT X 




.,' O Q 5" Kl .s.\ y. .M. !vl ,-, T .\ | ,'vi ;.:" M j 1 .y. .:„'. jj. 




70 CALL CLEAR 




•....■ 'J I i -. .i. 1 ■•! i ■....' !._. '....- 1 \ l._. I '.... ■.../ ].J u. ! i\ o >--' i *i r 'i • i 
O /"■. O Q T !■- ! "1" 




.' *J 1 1 A X 1 "4 I 

i 00 PRINT "TYPE A NUMBER," 




1 1 P R I N 1" " T 1- i E N P R E S S ( E N T E R ) „ " 




120 PRINT 




J. -...'V-' 1 t ". .;. I *; 1 .!. / (...JiCjuJl... |-: 1 *L_ -_.' . ji-iL.'i~ 




I /!,"•, ODThjT ii '7' ■. npprinirr /\ ivi i:r £:■ c /".p.p '■ 

.1 -i- l - ; 1 1 '-. .L 1 -1 i .!:../ .U t .. '..j Li .'../ !.... n I li.~-.._' __'r~l '....' I.~. 




J. -.J '-' . \ .1. ! K I 




-i \-i V I r V ... I M -: y V : ; .1. '.._■ I • '..Jit!.-. , 




170 INPUT CM 




ISO IF CH<1 THEN 160 




190 IF CH>2 THEN 160 




200 UN Ch GOVO 210,470 




209 REM ***■ ENCODE 'ROUTINE ■**■* 

210 CALL CLEAR 




230 PRINT "2 LINES MAXIMUM PLEASE.." 




2 4 ■'■ ' '<! N !" " N C M M A S A !.... L. WED! " 




2 5 P R I N T " T Y P E ' ' AND ! ::: ' R E S S ! ! 




260 PRINT r: (ENTER) FOR MENU," 




270 PRINT 




j-Pi t' : . !'!•-;' I! , : j.!|--|AT l 1 "'; YOi : i"";= i^jp h? : v A?"i[ ' 




290 INPUT M* 




300 IE H *:■■• "0" THEN 70 




310 PRINT 
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320 


PRINT "NOW ENCODING...." 




330 


PRINT 




340 


PRINT "HERE'S THE CODE;" 




350 


PRINT 




360 


FOR X=l TO LEN<M$) 




370 


FOR M=l TO 40 




380 


IF SEG$(M*,X, 1)=A*(M)THEN 390 ELSE *■ 


■00 


390 


PRINT C* <M) ; 




400 


NEXT M 




410 


NEXT X 




420 


PRINT 




430 


PRINT 




440 


PRINT "PRESS < ENTER) TO CONTINUE. " 




450 


GOSUB 780 




460 


GOTO 70 




46? 


REM *** DECODE ROUTINE *-** 




470 


CALL CLEAR 




480 


PRINT "TYPE A CODED MESSAGE-" 




490 


PRINT "2 LINES MAXIMUM PLEASE." 




500 


PRINT "NO COMMAS ALLOWED!" 




5 1 


PRINT "TYPE' '0' AND PRESS" 




520 


PRINT " (ENTER) FOR MENU,, " 




530 


PRINT 




540 


PRINT "WHAT IS THE CODE" 




550 


INPUT CO* 




.SAO 


IF C0$--"0" THEM 70 




570 


PRINT 




580 


PRINT "MOW DECODING. ..." 




590 


PRINT 




600 


P R I N T ' ' ! ■■■! E R E ' S Ti ■■! E M E S S A G E ;; ' ! 




6 1 


PRINT 




620 


FOR X-I TO LENCCO*} 




630 


1-HR i'i~i yn 40 




640 


IF SEE* (CO* , X , 1 ) -C* (M) THEN 650 ELSE 


400 


650 


PRINT A*(M) ; 




660 


NEXT M 




670 


NEXT X 




680 


PRINT 




690 


PRINT 




700 


P R T |M T " P P 1 :: ' <- ;:: ! ( !' N T i" R ) T H f ": H NT. ' ! 




710 


GOSUB 780 




720 


GO I /O 




730 


PAT A A r~ •' '■ :! " t'-' !-< f" ! i i"> v c.t '7 rr: f" 


» G ., J „ H ., L.. 


740 


DATA I„Q,J,Si !< t W , L. , A , M t C , N , M , . "i" , P , '-, 


:, Q , ! ::: ' 


7 50 


DATA R , K , S , D , T v G , U ',, B ,, V , E , W ,, I , X ,, N , V v X 


7 r;> 


760 


DATA . , „ . , 9 , 1 „ 7 t '■':: , 3 ,, 3 ., i ■■ f 4 , 2 ., 5 , 1 




770 


nAT,", .i.. ,i ■■? "-: o i- o o ■".", v, 




780 


INPUT rt 




790 


RFTL..IRN 




TRS-80 Color Computer 




1 REM *** SECRET CODE TRS-80 COLOR *** 




9 REM *** D I MEMS I ON CODE OR RHYS *** 




10 


DIM ft* (40) 




20 1 


DIM C*<40) 




3d 1 


-OR X=l TO 39 




4iZi 


READ fl*(X) 




50 


READ C*(X) 




60 NEXT X 
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69 REM *** MAIN MENU *** 




70 CLS 




80 PRINT "SECRET CODE PROGRAM" 




90 PRINT 




100 


PRINT "TYPE A NUMBER" 




110 


PRINT "THEN PRESS (ENTER)." 




1£0 


PRINT 




130 


PRINT "D ENCODE A MESSAGE" 




140 


PRINT "£) DECODE A MESSAGE" 




150 


PRINT 




160 


INPUT "WHICH 0NE";CH 




170 


IF CH<1 OR CH>£ THEN 160 




180 


ON CH GOTO £00,500 




199 


REM *** ENCODE ROUTINE *** 




£00 


CLS 




£10 


PRINT "TYPE YOUR MESSAGE" 




££0 


PRINT "£ LINES MAX. AT A TIME" 




£30 


PRINT "OR TYPE '0' AND PRESS" 




£40 


PRINT "(ENTER) FOR MENU." 




£50 


PRINT 




£60 


PRINT "WHAT IS YOUR MESSAGE" 




£70 


INPUT M* 




£80 


IF M$="l2i" THEN 70 




£90 


PRINT 




300 


PRINT "NOW ENCODING " 




310 


PRINT 




3£0 


PRINT "HERE'S THE CODE:" 




33<d 


PRINT 




340 


FOR X=l TO LEN(M*) 




350 


FOR M=l TO 39 




360 


IF MID*(M*, X, l)=fl*(M) THEN PRINT 


C*(M) ; 


370 


NEXT M 




380 


NEXT X 




39© 


PRINT 




400 


PRINT 




410 


PRINT "PRESS (ENTER) TO CONTINUE. 


ri 


4£0 


GOSUB 3000 




430 


GOTO 70 




499 


REM *** DECODE ROUTINE *** 




500 


CLS 




510 


PRINT "TYPE A CODED MESSAGE" 




5£0 


PRINT "£ LINES MAX. AT A TIME" 




530 


PRINT "OR TYPE '0' AND PRESS 1 ' 




540 


PRINT " (ENTER) FOR MENU. " 




550 


PRINT 




560 


PRINT "WHAT IS THE CODE" 




570 


INPUT C* 




580 


IF C$="0" THEN 70 




590 


PRINT 




600 


PRINT "NOW DECODING...." 




610 


PRINT 




6£0 


PRINT "HERE'S THE MESSAGE:" 




630 


PRINT 




640 


FOR X=l TO i_EN(C$) 




650 


FOR M=l TO 39 




660 


IF MID*(C*, X, i>=C*(M) THEN PRINT 


A*(M) ; 


670 


NEXT M 




680 


NEXT X 




690 


PRINT 
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700 PRINT 








710 PRINT' 


PRESS (ENTER) TO CONT. " 






720 GOSUB 


3000 






730 GOTO 70 






1000 DfiTfl" 


ft,F, " "," ",B,H,C,U,D,Y,E,Z, 


F, 


0,G, J, H,L 


1010 DATA 


I, Q, J, S, K, W, L, ft, M, C, N, M, 0, T, 


P, 


V,Q, P 


1020 DATfi 


R, K, S, D, T, G, U, B, V, E, W, I, X, N, 


Y, 


X,Z, R 


1030 DATA 


.,.,0,9, 1,7,2,3,3,0,4,2,5, i 






1040 DATA 


6,4,7,5,8,6,9,8,?,? 






3000 INPUT 


R* 






3010 RETURN 






TRS-80 Model III and Model 4 






1 REM *** 


SECRET CODE TRS-80 MODELS 3 


AND 4 BASIC *** 


9 REM *** 


DIMENSION CODE ARRAYS *** 






10 DIM A$ < 


39) 






20 DIM C$< 


39) 






30 FOR X=l 


TO 39 






40 READ A*(X) 






50 READ C$(X) 






60 NEXT X 








69 REM *** 


■MAIN MENU *** 






70 CLS 








SO PRINT ' 


SECRET CODE PROGRAM" 






90 PRINT 








100 PRINT 


"TYPE A NUMBER" 






110 PRINT 


"THEN PRESS (ENTER)." 






120 PRINT 








130 PRINT 


"DENCODE A MESSAGE" 






140 PRINT 


"2) DECODE A MESSAGE" 






150 PRINT 








160 INPUT 


"WHICH ONE";CH 






170 IF CH< 


1 OR CH>2 THEN 160 






ISO ON CH 


GOTO 200,500 






199 REM *** ENCODE ROUTINE *** 






200 CLS 








210 PRINT 


"TYPE YOUR MESSAGE" 






220 PRINT 


"2 LINES MAX. (NO COMMAS)" 






230 PRINT 


"OR TYPE '0' AND PRESS" 






240 PRINT 


" (ENTER) FOR MENU. " 






250 PRINT 








260 PRINT 


"WHAT IS YOUR MESSAGE" 






270 INPUT 


M$ 






2S0 IF M$= 


= "0" THEN 70 






290 PRINT 








300 PRINT 


"NOW ENCODING. ..." 






310 PRINT 








320 PRINT 


"HERE'S THE CODE: " 






330 PRINT 








340 FOR X= 


= 1 TO LEN(M$) 






350 FOR M= 


= 1 TO 39 






360 IF MID* (MS, X, 1)=A*(M) THEN PRINT C$(M); 


370 NEXT M 






380 NEXT > 








390 PRINT 








400 PRINT 








410 PRINT 


"PRESS (ENTER) TO CONTINUE" 


i 




420 GOSUB 


3000 






430 GOTO 70 
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"TYPE A CODED MESSAGE," 


"2 LINES 


MAX. 


(NO COMMAS) 


"OR TYPE 


'0' 


AND PRESS" 


" (ENTER) 


FOR 


MENU. " 


"WHAT IS 


THE 


CODE" 


C* 






"0" THEN 


70 




"NOW DECODING " 


"HERE'S 


THE MESSAGE: " 



THEN PRINT A*(M) 



TO CONTINUE"; 



499 REM *** DECODE ROUTINE *** 

500 CLS 
510 PRINT 
520 PRINT 
530 PRINT 
540 PRINT 
550 PRINT 
560 PRINT 
570 INPUT 
580 IF C$= 
590 PRINT 
600 PRINT 
610 PRINT 
620 PRINT 
630 PRINT 

640 FOR X=l TO LEN(C*) 
650 FOR M=l TO 39 
660 IF MID*(C*, X, 1)=C*(M) 
670 NEXT M 
680 NEXT X 
690 PRINT 
700 PRINT 

710 PRINT "PRESS (ENTER) 
720 GOSUB 3000 

730 GOTO 70 

1000 DATA A, F, " "," " , B, H, C, U, D, Y, E, Z, F, O, G, J , H, L 

1010 DATA I,Q, J,S,K,W,L,A,M,C,N,M,0,T,P,V,Q,P 

1020 DATA R,K,S,D,T,G,U,B,V,E,W, I , X , N, Y, X, Z , R 

1030 DATA .,. ,0,9, 1,7,2,3,3,0,4,2,5, 1 

1040 DATA 6,4,7,5,8,6,9,8,?,? 

3000 INPUT R* 

3020 RETURN 

VIC-20 

1 REM *** SECRET CODE VIC-20 *** 

9 REM *** DIMENSION CODE ARRAYS **# 

10 DIM A$(39) 
£0 DIM C*(39) 

£9 REM *#* INITIALIZE CODE ARRAYS *** 

30 FOR X=i TO 39 

40 READ A$(X) 

50 READ C*(X) 

£0 NEXT X 

E9 REM *** MAIN MENU *** 

70 PRINT CHR*(147) 

80 PRINT "SECRET CODE PROGRAM" 

90 PRINT 

100 PRINT 

PRINT 

PRINT 

PRINT "1) ENCODE A 

PRINT "£) DECODE A 

PRINT 

INPUT "WHICH ONE" ;CH 

IF CH<1 OR CH)£ THEN 

ON CH GOTO £00, 500 

REM *** ENCODE ROUTINE *** 

PRINT CHR*(147) 



i it) 
i£0 
130 
140 
150 
160 
170 
180 
139 

£00 

£10 



'TYPE A NUMBER, " 
'THEN PRESS (RETURN) 



MESSAGE" 
MESSAGE" 



1&0 



PRINT "TYPE YOUR MESSAGE" 
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220 


PRINT "2 LINES MAX-NO COMMAS!" 




£30 


PRINT "TYPE '0' AND PRESS" 




240 


PRINT "(RETURN) FOR MENU." 




£50 


PRINT 




260 


PRINT "WHAT IS YOUR MESSAGE" 




270 


INPUT M* 




260 


IF M*="0" THEN 70 




£90 


PRINT 




300 


PRINT "NOW ENCODING " 




310 


PRINT 




320 


PRINT "HERE'S THE CODE:" 




330 


PRINT 




340 


FOR X=l TO LEN(M*> 




350 


FOR M=l TO 39 




360 


IF MID*(M*, X, i)=A*(M) THEN PRINT C*(M>; 




370 


NEXT M 




360 


NEXT X 




390 


PRINT 




400 


PRINT 




410 


PRINT "PRESS (SHIFT) TO CONT. " 




420 


GOSUB 3000 




430 


GOTO 70 




499 


REM **♦ DECODE ROUTINE *♦* 




500 


PRINT CHR*<147> 




510 


PRINT "TYPE A CODED MESSAGE, " 




5£0 


PRINT "2 LINES MAX-NO COMMAS!" 




530 


PRINT "TYPE '0' AND PRESS" 




540 


PRINT "(RETURN) FOR MENU." 




550 


PRINT 




560 


PRINT "WHAT IS THE CODE" 




570 


INPUT C* 




580 


IF C*="0" THEN 70 




590 


PRINT 




600 


PRINT "NOW DECODING " 




610 


PRINT 




620 


PRINT "HERE'S THE MESSAGE:" 




630 


PRINT 




640 


FOR X=l TO LEN(C*> 




650 


FOR M=l TO 39 




660 


IF MID*(C*, X, 1>=C*(M> THEN PRINT A*(M); 




670 


NEXT M 




680 


NEXT X 




690 


PRINT 




700 


PRINT 




710 


PRINT "PRESS (SHIFT) TO CONT." 




720 


GOSUB 3000 




730 


GOTO 70 




1000 DATA A, F, " ", " ",B,H,C,U, D,Y,E, Z,F,0, G, J, 


H,L 


1010 DATA I,Q, J,S, K, W, L, A,M,C,N,M, 0, T, P, V, Q, P 




1020 DATA R, K,S, D,T,G, U,.B, V,E, W, I,X,N, Y,X, Z, R 




1030 DATA . , . , 0, 9, 1 , 7, 2, 3, 3, 0, 4, £, 5, 1 




1040 DATA 6,4,7,5,8,6,9,8,?,? 




£999 REM *** WAIT ROUTINE *** 




3000 WAIT 653, 1 




3010 WAIT 653, 1, 1 




3020 RETURN 
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BONUS PROGRAM #5 








GRAPHIC FANTASY 








A GRAPHIC FANTASY is something 


that mo 


st people just dr 


earn 


of,, E<ut computers, besides being -Tunc 


t i o n a 1 , c a n t a k e 


you 


on wonderful graphic adventure 


s . GRAP 


HIC FANTASY is a 




program that, lets you enter th 


e world 


of computer 




g en er at ed g r ap h i c: s ., For many 


hours it 


generates patter 


ned 


images (on most computers in r 


ad i ant c 


olors) and geomet 


r i c 


shape;; s o m e t h i n g a k in to p y r a m i d s 5 or i 


ental rugs, and t 


h e 


cells of p lants. 








ADAM 








1 REM *** GRAPHIC FANTASY 


ADAM *** 






10 GR: COLOR = 1 








20 x = 1 : y = 1 : kol = 1 . 








30 xi = -1 : yi = 1 








40 COLOR = kol 








50 k = INT(RND(1 )*100) 








60 IP k = 1 THEN kol = kol+1 








70 IP kol > 1 5 THEN kol = 1 








80 x = x+xi: y = y+yi 








90 IP x < 1 THEN x = 1 : xi = 


-xi 






100 IP x > 19 THEN x = 19: xi 


= -xi 






110 IP y < THEN y = 0: yi = 


-yi 






120 IP y > 19 THEN y = 19: yi 


= -yi 






130 PLOT x, y 








140 PLOT x+19, y 








150 PLOT x, y+20 








160 PLOT x+19, y+20 








170 GOTO 40 








Apple II and Apple He 








1 REM **•* GRAPHIC FANTASY APPLE *** 






2 REM ■*** SHAPE TABLE INDEX 


*** 






5 HOME : HGR2 : POKE 232,252: 


POKE 23 


~r op 




10 CD = 7676: Z == 4 








20 POKE CB,B: POKE CB + 1,0 








30 FOR LOG = 1 TO 8 








40 POKE CB + (2 * LOO ,(10 * 


LOC +■ S) 






50 POKE CB + (2 * LOG + 1),0 








60 NEXT LOG 








69 REM ■*** SET COLORS *■** 








70 KA --= INT ( RND (1) * 7) + 


1: IF KA 


== 4 THEN 70 




80 KB == INT ( RND (1) * 7) + 


1 : IF KB 


= 4 THEN 80 




90 KC - INT < RND (1) * 7) + 


1: IF KC 


= 4 THEN 90 




100 KD ■■=■• INT ( RND (1) * 7) -i 


1 : IF K 


D = 4 THEN 100 




105 CB = CB •+• IS 








109 REM *** INITIALIZE SHAPE 


TABLES 


*** 




.1 1 I = ABS ( Z - 4 ) 








120 GOSUB 700 








130 S = 10: ROT" Os SCALE-- 2 








139 REM ***READ GRAPHIC COORDINATES 


AND COLORS ■*■**■ 




140 READ R0,A„B 
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1 50 


IF RO = - 1 THEN 370 


160 


FOR CO = A TO B STEP S 


1 70 


KO = KA 


180 


GOSUB 500 


190 


NEXT CO 


200 


READ CO,A,B 


210 


FOR RO = A TO B STEP S 




KO = KB 


230 


GOSUB 500 


240 


NEXT RO 


250 


IF CO = - 1 THEN 370 


260 


READ RO,A,B 


270 


FOR CO = A TO B STEP - S 


280 


KO = KC 


290 


GOSUB 500 


•300 


NEXT CO 


3 1 


READ CO,A,B 


320 


FOR RO = A TO B STEP - S 


330 


KO = KD 


340 


GOSUB 500 


350 


NEXT RO 


360 


GOTO 140 


370 


FOR T = 1 TO 1500 


380 


NEXT T 


390 


RESTORE 


400 


GOTO 70 


499 


REM *** ERASE OVER CHARACTER *•** 


500 


SH = SH + 1: IF SH > 4 THEN SH = 1 


510 


HCOLOR= 


520 


DRAW SH + ( ABS (Z - 4)) AT CO , RO 


529 


REN *** DRAW CHARACTERS ON SCREEN *** 


530 


HCOLOR=--- KO 


540 


DRAW SH + Z AT CO , RO 


550 


RETURN 


699 


REM *** SHAPE TABLE ROUTINE *** 


700 


FOR ST = 1 + Z TO 4 + 7. 


710 


FOR LOG == TO 9 


720 


IF LOG == 9 THEN POKE CB •+• (ST * 10 + 9),0i GOTO 750 


730 


D = INT ( RND (1) * 256): IF D = THEN 730 


740 


POKE CB + (10 * ST + L0O,D 


750 


NEXT LOG 


760 


NEXT ST 


770 


RETURN 


J. 000 


DATA 90 , 1 30 , 1 40 , 1 50 , 90 , 1 00 , 1 00 , 1 40 , 1 30 , 1 20 , 1 00 , 90 


1 1 


DATA 80 , 1 20 , 1 50 , 1 60 , 80 , 1 1 , .1. 1 , 1 50 , 1 20 ,110,11 ., 80 


1 020 


DATA 70 , 1 i , 1 60 , 1 70 , 70 , 1 20 , 1 20 ,160,110,1 00 , 1 20 , 70 


1030 


DATA 60 , 1 00 , 1 70 , 1 80 , 60 ,, 1 30 , 1 30 , 1 70 , 1 00 , 90 „ 130, 60 


1 040 


DATA 50 , 90 , 1 80 , 1 90 , 50 , 1 40 , 1 40 , 1 SO , 90 , 80 , 1 40 , 50 


1050 


DATA 40 , 80 , 1 90 , 200 , 40 , 1 50 , 1 50 , 1 90 , 80 , 70 , 1 50 , 40 


1 060 


DATA 30 , 70 , 200 , 2 1 , 30 , 1 60 , 1 60 , 200 , 70 , 60 , 1 60 , 30 


1 070 


DATA 20 . 60 ,210, 220 , 20 , 1 70 , 1 70 , 2 1 , 60 , 50 , 1 70 , 20 


1 080 


DATA -- 1 , - 1 , •- 1 , ■■- 1 , - 1 , 1,-1,-1,-1,-1,-1,-1 


Atari 




:i. RE 




o q r;,r 


v] .k. .*..;,(. gT'l'A CHIP REQUIRED *•** 


1 G 


aAPHICG i :!. 


■; p r~= 


EM •*•** PICK COLORS AND RANDOM COORD I NATES ***■ 




J- 1 NT (RND ( 1 ) -s-15) +i 
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30 R0==INT(RND<1}*191. ) 
4 C ••= I N T (. R N D ( 1 ) * 7 9 > 

49 REM *** DRAW 5TARBURSTS *** 

50 COLOR KO 
60 PLOT 40,96 
70 DRAWTG CO , RO 
80 X = X-i-l:Q--KD 

90 IF X = 75 THEN 130 
120 GOTO 20 

129 REM ***• INITIALIZE PRAM INC COORDINATES *•*-* 

1.40 B---79 

150 C-191 

160 D=0 

■*70 KO^INTvENIMl ) *8> 

79 REM *■** DRAW FRAMES •:*•*■* 

180 COLOR KO 

190 PLOT D V A 

200 DRAWTO B,A 

210 DRAWTO B,C 

220 DRAWTO D,C 

230 DRAWTO D,A 

240 A^A-Kl. 

250 B--B--1 

260 C=C--1 

270 D-D+l 

280 X-X-M 

290 I F X > 275 T ! -! E N X ••- :!. ; G D T i 

T,'",."'. T p ;■■■..■■■(-; rir:;. a \7rj -ri..jp|\i i ~r r-< 

310 GOTO 170 

Commodore 64 

1 REM *** GRAPHIC FANTASY 64 *** 

10 Z = l 

£0 S=l 

30 PRINT CHR*<147) 

40 POKE 53280, 

50 POKE 53281,0 

60 DUM=INT(RND<-TI> ) 

69 REM *** SET COLORS *** 

70 KA=INT(RND<1)*4)+1 
80 KB=INT(RND(1)*4)+A 
90 KC=INT(RND(i)*4)+8 
100 KD=IIMT<RND(1>*4>+1£ 

109 REM *** INITIALIZE SCREEN AND CHARACTER VARIABLES *** 

110 CB=55£96 
120 CH=160 

130 SB=1024 

139 REM *** READ GRAPHIC COORDINATES AND COLORS *** 

140 READ RO, A, B 

150 IF R0=-1 THEN 370 

160 FOR CO=A TQ B STEP S 

170 KO=KA 

180 GOSUB 500 

190 NEXT CO 

200 READ CO, A.B 

£10 FOR RO=A TO B STEP S 

£20 KO=KB 

£30 GOSUB 500 
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£40 


NEXT RO 


£50 


IF C0=-1 THEN 370 


£60 


READ RO, A, B 


£70 


FOR C0=A TO B STEP -S 


£80 


K0=KC 


£90 


GOSUB 500 


300 


NEXT CO 


310 


READ CO, A,B 


3£0 


FOR RO=A TO B STEP -S 


330 


KO=KD 


340 


GOSUB 500 


350 


NEXT RO 


360 


GOTO 140 


370 


FOR T=l TO 1500 


380 


NEXT T 


390 


S=INT(RND(1>*5)+1 


400 


RESTORE 


410 


Z=Z+1 


4£0 


GOTO 40 


499 


REM *** RANDOMLY PICK CHARACTER *** 


500 


IF Z/3=INT(Z/3) THEN CH=81 


510 


IF Z/5=INT(Z/5) THEN CH=86 


5£0 


IF Z/7=INT(Z/7) THEN CH=9iZ? 


529 


REM *** DRAW CHARACTERS ON SCREEN *** 


530 


POKE CB+CO+40*RO, KQ 


540 


POKE SB+CO+40*RO, CH 


550 


RETURN 


100IZ 


l DATA 1£, 19, £0, £0, 12, 13, 13, £0, 18, 16, 13, 1 1 


1010 


DATA 11, 18, £1,21, 11, 14, 14, £1, 17, 17, 14, 10 


1022 


DATA 10. 17, ££, as, 10, 15, 15, ££, 16, 16, i5, 9 


1032 


HO TO Q If, ;-■-: p'? Q -j p, * (Z ?7 -l «=; •, >=-, ', c (J 


1040 


DATA 8, 15, S4, £4, 8, 17, 17, S4, 14, 14, 17, 7 


1050 


DATA 7, 14, £5, £5, 7, 18, 18, £5, 13, 13, 18,6 


1060 


DATA 6, 13, 26, 26, 6, 19, 19, £6, IE, 12, 19, 5 


1070 


DATA 5, 12, 27, 27, 5, £0, £0, £7, 11, 11, £0,4 


1080 


DATA 4, 11, 28, £8, 4, 21,21, 28, 10, 10,21,3 


1090 


DATA 3, 10, £9, 29, 3, 22, £2. 29, 9, 9, 2£, £ 


1100 


DATA 2, 9, 30, 30, 2, 23, 23, 30, 8, S, 23, 1 


1110 


DATA 1, 8, 31, 3i, 1, £4, 24, 31, 7,7,24,0 


11£0 


DATA 0, 7, 31,-1,-1,-1,-1,-1,-1 


1130 


DATA -1,-1,-1,-1,-1,-1,-1 


IBM PC 

10 REM *■*■■*•■ GRhPHM; FRRTOSV [ REP PC *■■»* 

Rp KEV OFF 

30 REM ■?<■*■* J.H.I. iiALl/F '-./tiR ( pp,|, E 3 *** 

'iO SCREE hi O , -.- , 

13 o W.i ii |H Eh.) 


&0 E 

BV E 
90 p 

! ( H ! 

! :R: ' 


...,.j ., £ ,. : ,-j 

- 3 

ONDOM 1 EE ■■'■.di'-i 

Jh'-:,-:l. r i- 

R!r"! 1 *** EiPlH LEKEE *•«* 


i :,i ,f ..) 


Rfcf-UJ R„h: 

[ !:: K ■::■:■■■ i t i"J l:;: 'l .! '-:, ;::::; r "■■ 


J .'\K m -' 

1 1 

1.5!.' 


•-UR CO -A 10 R S REP 2 


;! ,Aj(j 


V J!EX ! CO 
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1. 70 CO~B 

180 HEM.) C,D 

J 90 J.F D= 1 THEN 380 

200 FOR F<OC 10 D STEP S 

21 'i i308( ! lb 1 ouo 

220 NEXT RO 

230 EOE-O 

240 READ E„F 

250 IF F~- 1 ! HEM 380 

260 FOR CU-F. 10 I- STEP ™S 

270 00 BOH :l. QUO 

280 WE.x"!' (:::D 

290 00--F 

300 READ 6.H 

510 IF \\- 1 !>IEN 380 

320 for ro -•-•(:.■; O.J 8 ! EF' S 

:■■■ .'".o ooy.jt'i ionn 

34' ' NE XT RO 

550 EFFOT 

360 60 10 loo 1 

vfi J- |0 M **■* l..)F|.. FtV ■-;:■■: F 'I IF F 3 **■* 

380 FOR i-:l !0 :! 3oO 

W-J NEX'I !" 

400' 8--- ]. N"! (. R !••!)..) < :i. / *3 > + .1 

■<U O PEE FOR!.-: 

43'..' OO I O 80 

440 pf..jvj ->.. . K . .». RHMJM'ji'-l! ... v RlCk OHAFACTFR8 »■**• 

.1. o«'»o :i. F ? ,: o-O' ■: i ■' :■ > I i--ien ci-N'J- 

!. O 1 o i. F L .' 5™ .1. I < 7 •' 3 > !' HEN CH=~2 

10..0 .1 ! ;: ■_ .■■ 4---'l.N 1 * I /4 '■ OTFIi CH"2?0 

1.0 3'0 P ::: 2 3 : = Oh !' ( Ij 3 ) !"!■■■! Er--! CH=8 

1 (.)*■■ " IF ;■ /---on-' !' ' /./'/ :• ! HEN CI--NO 

.!. <. ' 3 o 1 F /. . " "■; ■■■■■■■■ I. HI' ' ;:. / : v' ) I El E N C H • ~ 2 3 O 

106o EFTT ■*■*-* DF:oN CHARACTERS **■« 

:!o'-0 !..3i:.:rt i E Hi, C0„0 

108' ■ l ; o ; |i : O'HR* i:(.;|-i.i • 

ODD. 5 IFF' I'URM 

20O' ) Or , 1 r. :„•: , ■' 3 , 3 „ ,; : : 5 , 7 8 ,, 5 , 2 3 ., 4 , .3 , ? 7 , 4 „ 22 

o< ..j i ii r>.-i C ,::, / :• ., ■:-!. . .,.;;,;■ ,, F, ,. 4 , 7 t .. F. ., 2 :l. , ?6 , 3 , 2 1 , 6 ., 5 .. 'i 

202F' DO; I fi ,»> , .M , /'0 ,, .'-. ,, vij ,, '7 ,, , : ; : , , t 7 4 , 7 , j A , "> .;.[ „ 7 „ ;! y , 

■■;•■( i v. i DA T A / ., / .:'. 8" ., .1. 8 ,■ ? 3 ., 8 , :l. 8 .. 9 „ 8 , ">' 2 .. 9 , :! '7 „ 7 2 , 

-,■•! >{ ' i i >,q I ,-:. | / H j O , ; A ,, V j. „ ;| A , J. e. „ 7' i. ., Oil „ .1. 6 „ 1 1. , .1. „ ', 

20 3 A DP. '! A >'0 ., :l 1. , I. 3 , 1 2 ., 1 :!. „ 69 , :! 2 , I T „ 69 ., 1 2 „ 1 4 

, ; :-'.'6F) !.:■(' F! n ■ ! , .1. 

TI-99/4A 



:;;•:.. cirjvi K «.,,;. ^[rp ;r ;-,;rr :;:::; fHARlACTERB *** 

i {'.j /."i -:r •-■ ! ' \~ !"■' ; : ' ' F' F' ?•■' l :: -' !■-' j" F" F' E E ■" \ "' ! :v ! ' 

■'/, f'7,?-i ; p| i"",'^r- 

>0 ' ' : -/:.:- ! 7^^ 

OO r70i!\007i v ! T 7 V" 
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109 


REM *** SELECT LE COLOURS *** 


1 1 


CALL COLOR (2,1 NT ( RND*6 > +3 , I NT ( RND*6 ) +3 ) 


1 20 


CALL. COLOR < 5 , I NT < RND*S > +4,1 NT < RND*8 ) + 1 ) 


1 30 


CALL COLOR ( 6 , I NT ( RND*4 ) +3 , I NT ( RND* 1 5 ) + 1 ) 


140 


CALL COLOR ( S , I NT ( RND*4 ) + 1 2 , I NT ( RND*5 ) + 1 ) 


1 50 


CALL COLOR (13,1 NT ( RND* 1 4 ) +3 , 1 ) 


1 60 


CALL COLOR ( 1 4 , I NT ( RND* 1 ) +3 , 1 ) 


1 69 


REM **•* READ GRAPHIC COORDINATES *■*•* 


170 


READ A 5 B 


180 


IF A=-l THEN 460 


1 90 


FOR CO==A TO B STEP S 


200 


03 05 LIB 500 


2 1 


NEXT CO 


220 


CO^CO-1 


2! 30 


READ A,B 


240 


IF A==-1. THEN 460 


250 


FOR RO=A TO B STEP S 


260 


GOSUB 500 


270 


NEXT RO 


2 SO 


RO-RO-.l 


290 


READ A,B 


300 


IF A™~i THEN 460 


3 1 


FOR CO- A TO B STEP -S 


320 


GOSUB 500 


330 


NEXT CO 


340 


CQ--CQ+1 


.: 50 


RP'AD A,B 


360 


IF A- 1 THEN 460 


.^ 7 *"■' 


FOR RO-A TO B STEP -S 


3 R 


[7in ! -i "~- ; r ~i '"i ' "i 




'._! L-' -..J '.../ /..." -J -J *_• 


390 


NEXT RO 


400 


RO^RO+1 


" 1 o 


r A 1 1 LI r ■ I...I A O ,' •! '-■■ | =; "■• L..j ■, 


•T .1. V 


I....- •.■•'. '.... 1.... ( t l./ i 1 r-i i *. ■-. J. ..:.. ■■! }. ■-...' r '....- : ! / 


420 


CALL HCHAR( 11 , 16, CM) 


4 3 


LL HCHAR (12, 17,CH5 


,i /i ,-, 


nn"i''"i 1 i !'"■• 


"v -|- -.-■ 


, .... 11 .-' t \.j .'. .!. '..■ 


459 


REN ■*■*■■* SET DRAWING STEPS *** 


460 


S-INT (END*5 < +2 


A "'■ •' . 


RECTOR? 7 


4 SO 
490 


BO TO SO 


499 


REM ***■ CHOOSE LE CHARACTERS *** 


500 


I F Z / 2 -~ I i\i T ( 7 / 2 ) T H E N 510 ELSE 520 


5 1 


j^l l ::: .- 1 ■:,/.. 


320 


!"" 1 •■! := /I. '"' 


540 


IF Z/5-INT (Z/5)T!!EN 550 ELSE 560 


550 


Q !.. 1 ■:;- <.., 4 


560 

1"-: ~7 fj 


I F Z / £ • ■■■■■■■ I N T ( Z / 6 ) T ! -i E N 570 E L S E 5 8 


5 GO 


IF Z/7-3NT CZ/7) THEN 59f"; ELSE 600 


590 


CM ••-9 4 


600 


I F Z /' B = I N T ( Z / S > T H E N 6 1 E L S E 62 


6 1 


014=128 


/-, "J <-'.'' 


REM •*** DEF-INE BOUNDER.!. LS *** 


r .-,.-• 


.'. ! I \ '..J .•• y- ~V '. i 1',... IV '._.'■-.' '-J '..... (.._-...fL... '..'■•?•■../ 

j.:;i i'""; ";i /i 


'"* J "" '" 


640 


! \ '....' •■■'' .ill. "" T 

IF R0< 1 THEN 700 


/-, L "i f") 


Tr: rn.'/i T'-'r'^l i- J. r-. pi err /.."-,-■. 




.1.1 '_.. Lj ■■. -r } '. ;!.... i *! uj'.-j'-..- L... L... ■ * i..„ '....'/ V-- 
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660 C0=4 




670 IF C0>28 THEN 6B0 ELSE 690 




680 CO- 2 8 




68? REM •*•** DRAW CHARACTERS ON SCREEN *■*■* 




690 CALL HCHAR < RO , CO , CH ) 




700 RETURN 




7 1 DATA 16, 17, 12, 13, 17, 15, 13, 11, 15, 18, 11, 14, IS, -14, 


l4, 10 


720 DATA 14, 19, 10, 15, 19,13, 15, 9 , 13, 20 , 9 , 16,20, 12, 16 


D 
1 ■■' 


730 DATA 12,21 ,8, 17,21 ,11, 17,7, 11 ,22,7, 18,22, 10 




740 DATA 18,6,1 , 23 , 6 , 1 9 , 23 , 9 , 1 9 , 5 , 9 , 24 , 5 „ 20 ,24,8 




750 DATA 20,4,8,25,4,21 ,25, 7. ,21, 3, 7 ,26, 3, 22 




760 DATA 26,6,22,2,6,27,2,23,27,5,23,1,5,28,1,24 




770 DATA 28,4,-1 ,, - 1 , -1 ,-1 




Timex 1000 and 1500 




1 REM *** GRAPHIC FANTASY TIMEX *** 




10 CLS 




20 RAND 




29 REM *** INITIALIZE VARIABLES *** 




30 LET S=INT (RND*5>+1 




40 LET A=0 




50 LET B=31 




60 LET C=0 




70 LET D=21 




80 LET CH=INT (RND*9>+2 




99 REM *** MAIN LOOP *** 




100 FOR X=A TO B STEP S 




110 PRINT AT C,X",CHR* <CH) 




120 NEXT X 




130 FOR X=C TO D STEP S 




140 PRINT AT X,B;CHR* (CH) 




150 NEXT X 




160 FOR X=B TO A STEP -S 




170 PRINT AT D,X;CHR* (CH) 




180 NEXT X 




190 FOR X=D TO C STEP -S 




200 PRINT AT X,A;CHR* (CH) 




210 NEXT X 




219 REM *** REDEFINE VARIABLES ** 




220 LET A=A+1 




230 LET B=B-1 




240 LET C=C+1 




250 LET D=D-1 




260 IF C>21 THEN GOTO 20 




270 GOTO 100 




TRS-80 Color Computer 




1 REM *** GRAPHIC FANTASY TRS-80 COLOR *** 




10 S=l 




£0 Z=l 




30 CLS(0) 




40 E=£31 




43 REM *•** RANDOMLY PICK COLOR *** 




50 KA=RND<3) 




60 KB=RND<£>+£ 




70 KC=RND(8) 




80 KD=RND(£)+6 




30 CH=15 




93 REM *** MAIN LOOP *** 
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1130 READ B 

110 IF B=-l THEN 320 

120 FOR C0=E TO B STEP S 

130 K0=KA 

140 GOSUB 500 

150 NEXT CO 

160 READ C 

170 FOR CO=B TO C STEP S*3£ 

180 KO=KB 

130 GOSUB 500 

£00 NEXT CO 

£10 READ D 

££0 FOR CO=C TO D STEP-S 

£30 KO=KC 

£40 GOSUB 500 

£50 NEXT CO 

£60 READ E 

£70 FOR CO=D TO E STEP-S*3£ 

£80 KO=KD 

£90 GOSUB 500 

300 NEXT CO 

310 GOTO 100 

3£0 FOR T=l TO 1500 

330 NEXT T 

340 S=RND<5) 

350 RESTORE 

360 Z=Z+1 

370 GOTO 40 

499 REM *** RANDOMLY PICK CHARACTER *** 

500 IF Z/3=INT(Z/3) THEN CH=7 
510 IF Z/£=INT(Z/£) THEN CH=10 
5£0 IF Z/5=INT(Z/5) THEN CH=9 
530 IF Z/7=INT(Z/7) THEN CH=4 

539 REM *** DRAW CHARACTERS *** 

540 SC=1£8+16*(K0-1)+CH 
550 PRINTSCO, CHR*(SC> ; 
560 RETURN 

1000 DATA £48, £80, £6£, 198, £17, 313, £93, 165, 186 
1010 DATA 346, 3£4, 13£, 155, 379, 355, 99, 124,412 
1020 DATA 386, 66, 93,445, 417, 33, 62, 478 
1030 DATA 448, 3£, -1,-1,-1 

TRS-80 Model III and Model 4 

1 REM *** GRAPHIC MODELS 3 AND 4 CASS. OR MODEL 3 DISK BASIC *** 

9 REM *** INITIALIZE VARIABLES *** 

10 S=2 

20 Z=l: PRINT CHR*(21) 
30 CLS 
40 E=0 
50 CH=158 

59 REM *** MAIN LOOP *** 

60 READ B 

70 FOR CO=E TO B STEP S 

80 GOSUB 500 

90 NEXT CO 

100 READ C 

110 IF C=-l THEN 240 

120 FOR CO=B TO C STEP S*64 

130 GOSUB 500 
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10 AWESOME PROGRAMS FROM K-POWER 



140 


NEXT CD 




150 


READ D 




160 


FOR CD=C TO D STEP-S 




170 


BOSUB 500 




180 


NEXT CO 




190 


READ E 




200 


FOR CO=D TO E STEP-S*64 




210 


GOSUB 500 




220 


NEXT CO 




230 


GOTO 60 




240 


FOR T=l TO 1500 




250 


NEXT T 




260 


S=RND<7) 




270 


RESTORE 




280 


Z = Z+1 




290 


GOTO 40 




499 


REM *** RANDOMLY CHOOSE CHARACTER *** 




500 


IF Z/2=INT(Z/2) THEN CH=183 




510 


IF Z/3=INT(Z/3) THEN CH=189 




520 


IF Z/4=INT(Z/4) THEN CH=129 




530 


IF Z/5=INT(Z/5) THEN CH=157 




540 


IF Z/6=INT(Z/6> THEN CH=170 




549 


REM *** DRAW *** 




550 


PRINT@CO,CHR*(CH) ; 




560 


RETURN 




1000 DATA 63,959,896,64,126,894,833,129,189 




1010 DATA 829,770,194,252,764,707,259,315,699 




1020 DATA 644,324,378,634,581,389,441,569 




1070 DATA 518,454,504,-1,-1,-1 




VIC-20 




1 REM *** GRAPHIC FANTASY VIC-20 *** 




10 Z=l 




£0 S=S 




30 PRINT CHR*(147> 




40 i 


30KE 36879,8 




60 DUM=INT(RND(-TI>> 




69 i 


REM *** SET COLORS *** 




70 KA=INT(RND(1)*£)+1 




80 KB=INT(RND(l)*£>+£ 




90 KC=INT(RND(l)*£)+4 




100 


KD=INT(RND(l)*£)+6 




109 


REM *** INITIALIZE SCREEN AND CHARACTER VARIABLES 


*♦* 


110 


CB=38400 




1£0 


CH=160 




130 


SB=7680 




140 


READ RO,A,B 




150 


IF R0=-1 THEN 370 




160 


FOR CO=A TO B STEP S 




170 


KO=KA 




180 


GOSUB 500 




190 


NEXT CO 




£00 


READ CO,A,B 




£10 


FOR RO=A TO B STEP S 




££0 


KO=KB 




£30 


GOSUB 500 




£40 


NEXT RO 




£50 


IF C0=-1 THEN 370 




£60 


READ RO, A, B 
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£70 FOR C0=A TO B STEP -S 

£88 K0=KC 

£90 BOSUB 500 

300 NEXT CO 

310 READ CO, ft, B 

3£0 FOR RO=fl TO B STEP -S 

330 KO=KD 

340 SOSUB 500 

350 NEXT RO 

360 SOTO 140 

370 FOR T=l TO 1500 

380 NEXT T 

390 S=INT<RND<1)*5)+1 

400 RESTORE 

410 Z=Z+1 

4£0 GOTO 40 

499 REM *** RANDOMLY PICK CHARACTER *** 

500 IF Z/3=INT(Z/3) THEN CH=81 
510 IF Z/5=INT(Z/5) THEN CH=86 
5£0 IF Z/7=INT(Z/7) THEN CH=90 
5£9 REM *** DRAW CHARACTERS *** 
530 POKE CB+CO+££*RO, KO 

540 POKE SB+CO+££*RO, CH 

550 RETURN 

1000 DATA 11, 11, 1£, 1£, 11, 1£, 1£, 1£, 10, 10, 1£, 10, 10, 10, i; 

1010 DATA 13,10,13,13,13,9,9,13,9,9,9,14,14,9,14 

10£0 DATA 14, 14, fl, fl, 14, 8, 8, 8, 15, 15.8, 15, 15, 15,7 

1030 DATA 7, 15, 7, 7, 7, 16, 16, 7, 16, 16, 16, 6, 6, 16, 6 

1040 DATA 6, 6, 17, 17, 6, 17, 17, 17, 5, 5, 17, 5, 5, 5, 18 

1050 DATA 18,5,18,18,18,4,4,18,4,4,4,19,19,4,19 

1060 DATA 19, 19, 3, 3, 19, 3, 3, 3, £0, £0, 3, £0, £0, £0, £ 

1070 DATA £, £0, £,£,£, £1, £1, £, £1,£1, £1, 1, 1, £1, 1 

1080 DATA 1, 1, £1,-1, -1,-1, -1,-1, -1,-1, -1,-1, -1,-1,-1 

1090 DATA 3, 10, £9, £9, 3, ££,££, £9, 9, 9, ££, £ 

1100 DATA £, 9, 30, 30, £, £3, £3, 30, 8, 8, £3, 1 

1110 DATA 1,8,31,31, 1, £4, £4, 31, 7, 7, £4,0 

U£0 DATA 0,7,31,-1,-1,-1,-1,-1,-1 

1130 DATA -1,-1,-1,-1,-1,-1,-1 

READY. 
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BONUS PROGRAM #6 

WATER BALLOONS 



In the summers 
b a 1 1 o o n f i g h t s 



ear- 



youth , we used to hava water 



'.a keep coal * 



o be cool now, I use my 



com p u t e r t o p 1 a y a 1 i 1 1 1 e g a m e c ailed W A T E R B A L. LOONS. The 

object 

tall b 



(-•■ 
of WATER BALLOONS is to stand on the balcony of a 

.i i 1 d i n g ,, b 1 i n d -F o 1 d e d < i -f t. h a t s o u nds a b i t sc a r y 



> t 



read on! 
ground ., 



j 



and 



d r o p w a t e r b a 1 1 o o n s i n t « 



'our friend, who's surely nuts 



hoop oi 



the 



s h o u tin g d i r e c t i ons t o y o u , 



"TOO FAR NORTH 1 " he 



Del ow N 



a ■/ a , 



ou hit the policeman on the head. 

To set the directions a water balloon will travel, 



select a number 
and do the same 
North /South a.nd 
y o u s h o u 1 d p i c k 
time around •, 

Atter select 
the RETURN or 



between one and 10 for 



W e s t a n d E a s t , 



I- 



your fr 
a 1 owee 



end says 
number f< 



you pick a 
i 



"TOD FAR SOUTH 
■ North /South on the 



nth, 
10 for 
•. then 



ting the number you want, be sure to press 
N T E R k e y , t o p 1 u g t h e n u. m b a r i n t o t h e 



c o m p u t e r . Uj h e n y o u f i n a 1 1 ^ 
the computer will tell vou 



drop a balloon into the hoop, 
ow many tries it took. 



WATER BALLOONS ADAM 



*** 



ADAM 

1 REM *** 

10 b = 10 

20 HOME 

30 PRINT TAB(8); "WATER BALLOONS!" 

40 PRINT 

50 PRINT TABU); "Press any key to begin. 

60 GET n$ 

70 HOME 

PRINT "You are on the 7th floor" 
PRINT "balcony of a building," 
PRINT "blindfolded. You are trying" 
PRINT "to drop water balloons into" 
PRINT "the center of a hoop on the" 
PRINT "ground below. To do so," 
PRINT "you must set your north/south" 
PRINT "and west/east coordinates" 
PRINT "according to your friend's" 
PRINT "help on the ground." 
REM *** pick coordinates *** 



80 

85 

90 

100 

105 

110 

115 
120 

125 
130 
149 
150 
160 
170 
180 
190 
200 
210 
220 
230 
235 
240 



la = INT(RND(1 )*10)t1 

lo = INT(RND(1 )*10)t1 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



"1=extreme south, 10=extreme north." 
"1=extreme west, 10=extreme east." 

"You now have "; b; " water balloons." 

"What's your guess" 

"(between 1 and 1 0) " 

"for the north/south coordinates" 
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245 INPUT ns 




250 IF ns < 1 OR ns > 10 THEN 230 




260 PRINT "What' s your guess for west/east" 




265 INPUT ew 




270 IP ew < 1 OR ew > 10 THEN PRINT "It must be between 1 and 


10!": 


GOTO 260 




280 IP ns = la AND ew = lo THEN 500 




290 PRINT 




299 REM *** scroll screen *** 




300 FOR x = 1 TO 24 




310 PRINT 




320 NEXT x 




330 PRINT "Your friend below says:" 




340 PRINT 




349 REM *** compare coordinates *** 




350 IF ns > la THEN PRINT "Too far north!" 




360 IF ns < la THEN PRINT "Too far south!" 




370 IF ns = la THEN PRINT "North, south O.K.!" 




380 IF ew > lo THEN PRINT "Too far east!" 




390 IF ew < lo THEN PRINT "Too far west!" 




400 IF ew = lo THEN PRINT "East, west O.K.!" 




410 b = b-1 




420 IF b < 1 THEN 800 




429 REM *** randomly pick two other ways to lose *** 




430 x = INT(RND(1 )*30)+1 




440 IF x = 7 THEN 600 




450 IF x = 13 THEN 700 




460 PRINT 




470 GOTO 190 




499 REM *** WIN! *** 




500 HOME 




510 PRINT "You hit in "; 10-b; " tries!" 




520 PRINT 




530 PRINT "Press any key to play again." 




540 GET n$ 




550 GOTO 150 




599 REM *** hit Mom or Policeman *** 




600 PRINT 




610 PRINT "You plastered your Mom as she" 




620 PRINT "walked out to see what was" 




630 PRINT "going on." 




640 PRINT "YOU LOSE!" 




650 END 




700 HOME 




710 PRINT "You hit the Policeman on the" 




720 PRINT "head. He confiscates your hoop" 




730 PRINT "and you. lose the game!" 




740 END 




799 REM *** LOSE *** 




800 PRINT 




810 PRINT "You're out of water balloons!" 




820 PRINT "YOU LOSE. The coordinates were:" 




830 PRINT "north/south="; la 




840 PRINT "east/west="; lo 




850 END 
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Apple II and Apple He 




1 REM *** WATER BALLOONS APPLE *** 




i B == 1 




20 


HOME 




30 


PRINT TAB( 12) "WATER BALLOONS 1 " 




40 


PRINT 




50 


PRINT TAB< 8) M PRESS ANY KEY TO BEGIN," 




60 


BET N± 




70 


HOME 




SO 


PRINT "YOU ARE ON THE 7TI-! FLOOR BALCONY OF 


A" 


90 


PRINT "BUILDING, BLINDFOLDED. YOU ARE TRY 


INS" 


100 


PRINT "TO DROP WATER BALLOONS INTO THE CE 


NTER" 


no 


PRINT "OF A HOOP ON THE GROUND BELOW,, " 




i 20 


PRINT "TO DO SO, YOU MUST SET YOUR NORTH/ 


SO! )" r H " 


130 


PRINT "AND WEST/ EAST COORDINATES ACCORD IN 


G" 


140 


PRINT "TO YOUR FRIEND'S HELP ON THE GROWN 


1...' 


149 


REM ■*** PICK COORDINATES *** 




150 


LA = INT ( RND (1) * 10) ■■•■■ 1 




160 


LO ~ INT ( RND (1) * 10) + 1 




1 70 


PRINT 




180 


PRINT 




190 


PRINT "1-EXTREME SOUTH, 10-EXTREME NORTH,. 


11 


200 


PRINT " 1=EXTREME WEST, U>=EXTREHE EAST" 




2 1 


PRINT 




'"' '.'- 1 {"! 


PRINT "YOU NOW HAVE "B" WATER BALLOONS,. •" 




230 


PRINT "WHAT'S YOUR GUESS (BETWEEN 1 AND 1 


0) " 


240 


INPUT "FOR THE NORTH/SOUTH COORDINATES;: " 


;NS 


250 


IF NS < 1 OR NS > 10 THEN 230 




260 


INPUT "WHAT'S YOUR QUESS FOR WEST/EAST;: " 


;; E!W 


" 7 f ; 
RfV"! 


TC p 1,1 .•■• 1 p,FV l-hl '••• 1 (~'l TLJCM OCT f, IT" H T T Mi 1 CI T 

"1 '■;» /.. t~1 


BE BETWEEN 1 AN 10:": 


no,-"', 
jL. <~j U 


T ir uic? 1 /\ /\mv\ crij — : r-, Tj.jr.:j\) Si'M" 1 

.LI h,J -- U_t"T flMi-' L... '.-V — l_.. '.J I 1 II..- [4 -.J 1 -' 1 ..' 




290 


1 f \ J. 1 H t 




-.IOO 


REM *** SCROLL. SCREEN *** 




300 


FOR X = 1 TC 24 




3 I O 

3 "■* !") 


! t -. .1. 1 M 1 

NEXT X 




3 3 ( i 


PRINT "YOUR FRIEND BELOW SAYO;; " 




340 


. PRINT 




349 


R E M * * ><■ C M P A R E C R D I N A T E G >; *■ •»■ 




350 


IF LA < NS THEN PRINT "TOD FAR NORTH:" 




360 


IF LA > NS THEN PRINT "TOO FAR SOUTH'" 




370 


■r r_- 1 /\ - kio Tups; [>ovkiT ii;\|ni::,T{...i eni rr j...i n i.-' 

J. I 1.... r"i 1 \ ■-.•.' 1 1 1 1.. ! '! I : ■-. .,. : -i '. 1 ■, : ...l I \ f ! : .j ■„..' <....' '...; 1 ! ■. ■....- j 1 ■. ,: 


i ii 


3 SO 


IF EW > LO THEN PRINT "TOO FAR EAST!" 




390 


IF EW < LO THEN PRINT "TOO FAR WEST 1 " 




400 


IF EW ■'= LO THEN PRINT "EAST, WEST O.K. : ,! 




4 1 


B ^ B ••- 1 




420 


IF B < 1 THEN 800 




J "V .rL. / 


i-inTM v..*..*. p /\ \\ i t\ n ivi 1 \.- DTfi' Ti.ifi p-r i .iir i :■ i , | a \ .' c; yn 

{ \ l._. ! I ■•* " « , \ r ! I M 1-.-' '...} I ! !__ I I .1. '_.• 1 -. i 'r-f '-- l '.-.! ! : 1 ! i *. '.- •■ II I -....' 1 '■> 


LOSE *** 


430 


X ■•- INT ( RND (1) * 30) ••!- 1 




4 4 


j. [" K -■ / ! i'lL.N CAJ'J 




4 5 


TF x :-• iz THEN 700 




460 


PRINT 




470 


GOTO 190 




499 


REM **■* WIN! -*•** 




!"! C) ( ) 


HOME 




r~. i t~; 


PRINT "YOU HIT IN "10 ■ 3" TRIES!" 
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520 


PR I NT 




530 


PRINT "PRESS ANY KEY TO PLAY AGAIN. " 




540 


GET N* 




550 


RUN 




599 


REM **•* HIT MOM DR POL T REMAN *•** 




600 


PRINT 




6 1 


PRINT "YOU PLASTERED YOUR MOM AS SHE WALKED" 




620 


PRINT "OUT TO SEE WHAT WAS GOING ON!" 




630 


PRINT "YOU LOSE! " 




640 


END 




700 


HOME 




710 


PRINT "YOU HIT THE POLICEMAN ON THE HEAD." 




720 


PRINT "HE CONFISCATES YOUR HOOP AND YOU" 




730 


PRINT "LOSE THE GAME!" 




740 


END 




799 


REM *** LOSE *** 




BOO 


PRINT 




8 1 


PRINT "YOU'RE OUT OF' WATER BALLOONS'" 




820 


PRINT "YOU LOSE,. THE COORDINATES WERE:" 




S30 


PR I NT " NORTH/SOUTH^ " LA 




840 


PR I NT " EAST / WEST== " LO 




850 


END 




Atari 






1 REM *** WAlEE 8fH._L.00N3 ATARI •**•* 




10 DOT Ri< 1) : B "10 




20 f- 


'ROM 1 CHR* < 125. 




30 1" 


'03 IT ION 12,0 




40 F 


•Rlf ! r "WATER BALLOONS' " 




50 F 


'OS I '! I ON 8 . 3 : PR I N T " PRESS ( RETRUN ) T ST AR T " ; 




60 !: 


'Ob' OB i'HJV 




70 f 


'RIM! CHR* . 125. 




ao . 


■R1MT "YOU ARE. ON I'HE 7TI-I FLOOR BALCONY' OF A" 




90 f 


'R I N 1 " BO I L D 1 NO ., BL I LIDFOLDED . YOU i iRLT TRY I NO " 




1 00 


PRINT " . DROP WATER BALLOONS INTO A HOOP," 




1 1 


PRINT "ON THE GROUND BELOW., 10 DO SO," 




1 20 


r F.INT "VOU OUST SE"I .'OUR NORTH/ SOUTH" 




1 30 


PRINT "AND EAST /WES T COORDINATES ACCORDING" 




140 


PRIN'I "10 YOUR FRIEND S HELP ON THE GROUND." 




149 


R E IT ■* * * F' I C i< CO R D I IT i ■ . T E 8 '* * ■* 




1 50 


LA- IN 1" (RMD . .1. . *i0) -I-.1. 




160 


L.O~'!NT(RND .1. * 10) + 1 




1/0 


PR INI 




J. 80 


PR I N'T 




.1. 90 


PRINT " 1 = EX IRENE SOOTH ■- iO-EX 'IRENE NORTH" 




2 


PR 1 14 ! " 1 -EX T RENE WEST - 1 0-EX IRENE EAST " 




2 1 


PRINT 


■ 


■•■' _' ' o 


PRINT " > 00 HAv'E ";B;" WATER BALLOONS." 




2 3 
240 


PR INI' "WHAT S YOUR GOESS (.BETWEEN 1 AND 10." 
PRINT "FOP THE NOR I'H/ SOUTH COORD I NATES" . INPUT MS 




2 5 


IF NS< :l OR NS/10 1 HEN 230 




•■:! \..y '..-' 


PRINT "WHAT'S YOUR OOEbS FOP' WEST <EAS '!"" : INPT! "1 C.N 




'■■'?(!■ 


IF EW< 1 OR EW.--10 iHEN PRINT "IT MOST BE WITHIN 1 AN. 


> ]'■'": GO ! .'-.'".O 


230 


IF NS--LA AND FW^LO THEN 500 




290 


PRINT 




29 <; ? 


REM *** SCROLL.. SCREl'EN *•■** 




300 
3 1 

.3 _••' 


f' : 'OR X-~:l TO 24 

PR1NI 

NEXT x 
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330 PRINT "'YOUR FRIEND BELOW SAYS:" 

340 PR INI 

349 REM **•* COMPARE COORDINATES *** 

350 IF MS/LA THEN PRIM! "TOO FAR NORTH!" 
360 IF NS/LA THEM PRINT "TOO FAR SOUTH!" 
370 IF NS==LA THEM PRINT "NORTH/SOUTH O.K.!" 
300 IF EW>LO THEN PRINT "TOO FAR EAST!" 
390 IF EW<LO THEM PRINT "TOO FAR WEST!" 
400 IF EIT4...0 THEM PRINT "EAST /WEST O.K.!" 
410 B-B--I 

4 20 IF &--.1 THEN £300 

429 REM ■**■* RANDOMLY PICK TWO OTHER WAVS TO LOSE *** 

430 X--INI <RND< 1 ) *30) M 
440 IF *:-/ THEN 600 
450 IF X==U.3 IFIEN 700 
460 PRIM! 

470 GOTO .1.90 

499 REM #■«■•* WIN! *•** 

500 PRIM! CHR*C125> 

51 'J PRINT "YOU Fill IT IN ";9-~8;" l'URM(S) 1 " 

520 PR I ITT 

5 3 F ! ;:; : 1 N I " P R E S S ( R E 1" U R N ) 1" P L AY A G A I M ,. ' ' 

54*3 GOSUB 1000 

550 RUN 

599 REM ##■* HIT MOM OR POLICEMAN *** 



610 PRINI ,: yOU PLhSTERED y OUR MOM AS SHE WALKED" 

620 PRINT "OUI 10 SEE WHAT MAS 00 IMG ON 1 " 

630 PR IN ! " YOU LOSE ! " 

640 END 

7 00 PRINT CHRTOI.25; 

7 K.) PRINT "YOU Fill THE POLICEMAN ON THE HEAD." 

720 PRINT "HE CONFISCATES YOUR HOOP" 

730 PRINT "AMD YOU LOSE THE GAME 1 " 

'740 END 

7 99 EETi *•*■* I. ..USE *** 

800 PRINI 

810 PRINT "YOU RE OUT OF WATER BALLOONS'" 

820 PRINT "YOU LOSE.. THE COORDINATES WERE:" 

83'..) PRINI "NORTT-I/'SOUN-I"- " ; LA 

840 PR IN 'I "EaS! /WES I •-= " ; I....0 

850 END 

lOOo INPUI R : f- 

1.0'Z'j RE. r L.IRN 

Commodore 64 

I REM *** WATER BALLOONS 64 *** 

1© B=10 

20 PRINT CHR*(i47) 

30 PRINT TAB <1£> "WATER BALLOONS!" 

40 PRINT 

50 PRINT TAB(8)"PRESS (SHIFT) TO BEGIN." 

60 GOSUB 1000 

63 REM *** INTRODUCTION *** 

70 PRINT CHR*(147) 

80 PRINT "YOU ARE ON THE 7TH FLOOR BALCONY OF A" 

30 PRINT "BUILDING, BLINDFOLDED. YOU ARE TRYING" 

100 PRINT "TO DROP WATER BALLOONS INTO A HOOP" 

110 PRINT "ON THE GROUND BELOW." 
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128 PRINT "TO DO SO, YOU MUST SET NORTH/SOUTH" 
130 PRINT "AND WEST/ERST COORDINATES ACCORDING" 

148 PRINT "TO YOUR FRIEND'S HELP ON THE GROUND." 

149 REM *** PICK COORDINATES *** 

150 LA=INT(RND(1)*10)+1 
160 LO=INT(RND(1)*10)+1 
170 PRINT 

180 PRINT 

190 PRINT "1=EXTREME SOUTH - 10=EXTREME NORTH" 

£00 PRINT " 1=EXTREME WEST - 10=EXTREME EAST" 

£10 PRINT 

£19 REM *** MAIN LOOP *** 

££0 PRINT "YOU NOW HAVE" B" WATER BALLOONS. " 

£30 PRINT "WHAT'S YOUR GUESS (BETWEEN 1 AND 10)" 

£40 INPUT "FOR THE NORTH/SOUTH COORDINATE" ;NS 

£50 IF NS<1 OR NS> 10 THEN £30 

£60 INPUT "WHAT'S YOUR GUESS FOR WEST/EAST" ;EW 

£70 IF EW<1 OR EW>10 THEN PRINT "IT MUST BE WITHIN 1 AND 10!" :GOTO £60 

£80 IF NS=LA AND EW=LO THEN 500 

£90 PRINT 

£99 REM *** SCROLL SCREEN *** 

300 FOR X=l TO £4 

310 PRINT 

3£0 NEXT X 

330 PRINT "YOUR FRIEND BELOW SAYS:" 

340 PRINT 

349 REM *** COMPARE COORDINATES *** 

350 IF NS>LA THEN PRINT "TOO FAR NORTH!" 
360 IF NS<LA THEN PRINT "TOO FAR SOUTH!" 
370 IF NS=LA THEN PRINT "NORTH, SOUTH O.K.!" 
380 IF EW>LO THEN PRINT "TOO FAR EAST!" 

390 IF EW<LO THEN PRINT "TOO FAR WEST!" 

400 IF EW=LO THEN PRINT "EAST, WEST O.K. ! " 

410 B=B-1 

4£0 IF B<1 THEN 800 

4£9 REM *** RANDOMLY PICK TWO OTHER WAYS TO LOSE *** 

430 X=INT(RND(1)*30)+1 

440 IF X=7 THEN 600 

450 IF X=13 THEN 700 

460 PRINT 

470 GOTO 190 

499 REM *** WIN! *** 

500 PRINT CHR*<147> 

510 PRINT "YOU HIT IT IN" 10-B"TRIES ! " 

5£0 PRINT 

530 PRINT "PRESS (SHIFT) TO PLAY AGAIN." 

540 GDSUB 1000 

550 RUN 

599 REM *** HIT MOM OR POLICEMAN *** 

600 PRINT 

610 PRINT "YOU PLASTERED YOUR MOM AS SHE WALKED" 

6£0 PRINT "OUT TO SEE WHAT WAS GOING ON!" 

630 PRINT "YOU LOSE: " 

640 END 

700 PRINT CHR*(147) 

710 PRINT "YOU HIT THE POLICEMAN ON THE HEAD." 

7£0 PRINT "HE CONFISCATES YOUR HOOP" 

730 PRINT "AND YOU LOSE THE GAME!" 

740 END 
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799 REM *** LOSE *»* 

800 PRINT 

810 PRINT "YOU'RE OUT OF WATER BALLOONS ! " 

820 PRINT "YOU LOSE. THE COORDINATES WERE: 

830 PRINT "NORTH/SOUTH="LA 

840 PRINT "EfiST/WEST= ,, LQ 

850 END 

1000 WAIT 653, 1 

1010 WAIT 653, 1, 1 

1020 RETURN 

IBM PC 

I. RF.M *•** HATER BALLOONS IBM PC *** 

10 B-.1.0 

20 CLS 

30 PRINT "UrUEE BALLOONS ! " 

40 PRINT 

50 PRINT "PRESS 'ENTER) 10 BEGIN." 

60 00 SUB 1100 

70 CLS 

80 PRINT "YOU mRE ON THE 7TH" 

90 PRINT "FLOOR BALCONY OF- A" 

100 PRIN'I "BUILDING, BLINDFOLDED,," 

110 PRINT "iGll ARE TRY I NO TO" 

1 20 PR [ N r " DROP HA TER BAI. ..LOONS " 

130 PRINT "IN 10 THE CENTER OF" 

1 TO PRINT "A HOOP ON THE GROUND BELOW,." 

150 PRINT " !'0 BO SO, yOU MUST SET" 

160 PR IN I' "YOUR N0RIH/S0U1H AND" 

i.?0 PRINT "WES"I /E.-'iSI COORDINATES" 

1 SO PR 1 1\| T " [■■! I 1 H Y OOP FR I END ' S " 
190 PRINT' "HELP ON NTE GROUND.," 

199 REN *■*-* LONDON!...; PICL COORDINATES *■**• 

200 Lm-IITT ! :RND ' .1 ) *10> ■+ 1 
210 1.4'L IN! 'RNO '. 1? zl.O) : 1 
220 PRINT 

2 3 O P R I N I ' ' F' F: E S S ( E N I E R ) T P I. . A v ' ' 
240 00 SUB 1100 

250 CLS 

260 PR IN! 

2 ?<.< PR 1 ■!■! i " 1 ™-E ;■■. "IRENE SOU I H " 

230 PRINT " 1.0-EX IRENE NOR ! H •■ " 

290 PR. I. Ml "1-EXIRENE HEST--" 

300 PR I N ! " 1 0--E X I RENE EAST " 

31 PR IN I 

: '.20 PR IN I "YOU HON Fli'A'E " B"N>'>I EE BALLOONS." 

330 PR IN I' "NT-EN IS iCOR GUESS" 

540 PRINT' " (BE I UEEN 1 AND 10; " 

350 PR1.ITT "FOR THE NOR'! H - SOOT H" 

360 INPUl "COORDINATE" ; NS 

370 IF NS<1 OR NSXlO THEN 340 

38'..' PR II- II "L'HmI IS tOUR GUESS" 

390 INPUT "FOR NFS'! A I- ID EAST";EW 

'iO'J IF EU-. 1 OR H'!>10 THEN 300 

410 IF NS-L(-i AND' E.VR4..0 THEN- 7 00 

420 PRINT 

430 FOR .v-i 10 24 

4 TO PR. I. ITT 

'150 NEXT > 
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460 PRIM"! "YOUR FRIEND BELOW BAYS" 


470 PRINT 


4 79 REM ■*•** COMPARE COORDINATES *•** 


480 IF NS>LA THEN PRINT "TOO FAR NORTH 1 " 


490 IF NS<LA 1 HEN PRINT "TOO FAR SOUTH!" 


500 IF NS--=LA THEN PRINT " NORTH/ SOU I'H O.K.!" 


510 IF EW.H..0 IHEN PRINT "TOO FAR EAST'" 


520 IF Et'KLO THEN PR IN I "TOO FAR WEST' 1 * 


530 IF EW-1...0 IHEN PRINT "FAST /WEST ..!■■:.'„!" 


540 B-B-l 


550 IF B<1 THEN 1000 


559 REM *■**• RANDOMLY TWO OTHER WAYS TO LOSE ■**# 


560 *~ JNT (RHP ( 1 ) »3A> 


5 70 IF >.•■•-;•' THET! 800 


580 IF X'^13 THEN 900 


590 PRINT 


600 GOTO 270 


699 REM ***• WIN *■>■*■ 


700 CL.S 


7 1 PR I N 1 " YOU H I T I 1" I N " I B " T R I ES " 


720 PRINT 


730 PRINT "PRESS 'ENTER' TO PLAY AGAIN,. " 


740 GQSUB 1.100 


7 50 RUN 


79" REM ■)>'■■>:* Fill HON OF: COP *** 


800 PRINT 


8i0 PRINT "YOU HIT YOUR MOM ON THE SIDEWALK 1 " 


8 2 P R IN'!" " Y U 1 .. S E 1 t K E y U IT 1. J I.. . D N 1 D E !. I E ' ■' E ., ' ' 


830 END 


900 CL.S 


710 PR I Ml "YOU Fill' A POLir.fc-.MHN ON THE HEAD," 


920 PR I TO "HE CONFISCATES , OUR HOOP,," 


930 PRIM!" " YOU LOSE! " 


9 40 END 


999 rem ##•* lose: *■*•* 


1000 PR I Mi 


OHO PRINI "YUU RE 00 1 OF WhIER" 


1020 PP. INI "BALLOONS. YOU LOSE. ! " 


1.030 F'RIN! "THE COOEDINO TES WERE;" 


1 4 P R I N ! " N R 1' L 1 ■■- S 1. J 1 H = " L r-i 


.1.050 PRIN'I "EAST WESP~"LO 
1 i.')/-.i"i r j-n '.■ 


109° REM ***■ WAT I ROUTINE *■*■■*■ 


1 100 INPUT R* 


1 120 RETURN 


TI-99/4A 


I REM «•*-*- WhTEP BiYl. LOONS 1 197. 4A *: **■ 


.1. ' •' H- - i. (J 

20 CALL CLEAR 


So PRINT "WATER BALLOONS ! : ' 
4 A PRINI 


50 PRINT "PRESS NHHEE) TO BEG I IT" 


/■iO INPUT E* 


."0 CALL. CI. EAR 


80 FRITH "YOU ARE ON THE 7 "IN" 


90 PRINI "FLOOR BALCONY OF A" 


1 OO PR I N I " BU 1 1.. D 1 NG „ Bl C NDF 01.... BED . " 


110 PRINI "YOU ARE 1 EYING TO" 
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1 20 


PRINT "DROP WATER BALLOONS," 




130 


PRINT "INTO THE CENTER OF" 




:i 40 


PRINT "A HOOP ON I HE GROUND." 




:l. 50 


PRINT "TO DO SO YOU MUST SET" 




1 /,('! 


PRINT "YOUR NORTH. 'SOUTH AND" 




170 


PRINT "WEST/EAST COORDINATES" 




i.ao 


PRINT "WITH YOUR FRIEND'S" 




J. 90 


PRINT "HELP ON THE GROUND." 




199 


REN **•* RANDOMLY PICK COORDINATES 


*■*# 


:,::.'>:>■:.,) 


RANDOMIZE 




2:io 


Lm-INT >. 10*RND>+1 




220 


L0==IN1" ( 10*RND) -i-l 




230 


PRINT "PRESS (ENTER) TO PLAY" 




240 


.CNPU'I R* 




250 


CALL CLEAR 




260 


PRINT" 




^/O 


PR I N !" " 1 -E X TREME SOU T H " 




2:80 


PRINT " 1 O-EX IRENE NORTH" 




290 


PRINT " .1. -EXTREME NEST " 




300 


PR 1 NT !l 1 0"E XT REME EAST " 




3 1 


PRINT 




3 1 9 


REN k*k INPUT GUESS *** 




; ;'. V i"» 


PRINT "YOU NOW HAVE";B 




. T . : :! : '■ > 


PRINT "WAT'FR BALLOONS" 




340 


PRINT "WHAT S YOUR GUESS" 




'350 


PRINT " (BETWEEN 1 AND 10) " 




. ', / i i 


PRINT "FOR "THE NORTH/SOOTH" 
PRINT "COORDINATE"? 




380 


INPUT MS 




389 


REM *** COMPARE COORDINATES *•*■* 




390 


IF NS<1 THEN 350 




4 00 


IF HS/IO THEM 350 




4 1 


PRINT "WHO'! S YOUR GUESS" 




430 
44 


PRINT "FOR EAST'/ WEST"; 

INPUT EN 

IF EbKl U-FN 4 10 




450 
460 


IF E.W.O.O THEN 4 3.0 

IF NS=4...A THEM 4/0 ELSE 480 




47o 


IF EW-LO THEN 7 30 ELSE 480 




4 79 


REM *■**• SCROLL SCREEN ■*** 




480 
4 90 


PR: I N 1 

FOR X="l. !0 94 




500 


PRINT 




5 J. 


NEXT X 




52< ' 


PRINT "YOUR FRIEND SAYS" 




53<",> 


PRINT 




540 


IF NSH..A THEN. 550 ELSE 560 




550 


PRINT "TOO FAF NORTH! " 




5 /~> * ' 


IF T!SO..i, IHEN 5 70 ELSE 580 




5 7 


PRUT 1 "TOO FOR: SOUTH' " 




5 SO 


IF NS=T...O IHEI! 59' '' ELSE 600 




590 
6-' ''.' 


PRINT "NOR If -1, SOUTH CLE,. ' "' 
IF EW.L.O THEN 6.10 ELSE 620 




6 .1. O 

!'■ :- 6 ' i 


PRINT " 100 FAR EAST 1 " 

IF El-KLO THEN 630 ELSE 640 




630 


PRINT " TOO P.'iR WEST ! " 

IT FTE4..0 THEN 650 ELSE 660 

PRINT "EhSI /WES 1 0. I<„ 1 " 




660 


B--B-1 
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670 IF B<1 THEN 890 

679 REM *** PICK TWO OTHER WAYS TO LOSE *** 

680 X - 1 NT ( 30-xRND ) + ■ 1 
690 IF X=7 THEN 790 
700 IF X=13 THEN 840 
7 1 PR I M T 

720 GOTO 270 
730 CALL. CLEAR 

740 PRINT "GOT IT IN"; 9 B; " TURN (S) ! " 

750 PRINT 

760 PRINT "PRESS (EN TEE. > TO PLAY." 

770 INPUT R* 

780 GOTO 10 

789 REM **# HIT MOM OR COP *•** 

790 CALL CLEAR 

800 PRINT "YOU HIT YOUR MOM ON" 

810 PRINT "THE SIDEWALK!" 

820 PRINT "YOU LOSE! " 

830 END 

840 CALL. CLEAR 

850 PRINT "vOU HIT THE POLICEMAN'" 

860 PRINT "HE. CONFISCATES YOUR" 

870 PRINT" "[TOO P „ YOU LOSE!" 

880 END 

890 PRINT 

899 REIT ■*•** OUT OF BALLOONS •••LOSE ■***■ 

900 PRINT "YOU'RE OUT OF WbIER" 
910 PRINT " B i -i i. .. L N S „ i QjJ LOS E ! ' ' 
920 PR INI "THE COORDINATES WERE:" 
9 3 C ' P R 1 N T "I -i F: !' H ■' S U IT! = " s L ( > 

9 4 O P R INI' " E A S T / U E S I ~ " ; L 
950 END 

Timex 1000 w/16K RAM Pack and Timex 1500 

1 REM *** WATER BALLOONS TIMEX *** 

10 LET B=10 

20 CLS 

30 PRINT TAB (9) ; "WATER BALLOONS" 

40 PRINT 

50 PRINT TAB (5) ; "PRESS (ENTER) TO BEGIN." 

60 INPUT R* 

70 CLS 

80 PRINT "YOU ARE ON THE 7TH FLOOR" 

90 PRINT "BALCONY OF A BUILDING," 
100 PRINT "BLINDFOLDED. YOU ARE TRYING" 
110 PRINT "TO DROP WATER BALLOONS INTO" 
120 PRINT "A HOOP ON THE GROUND BELOW." 
130 PRINT "TO DO SO YOU MUST SET YOUR" 
140 PRINT "NORTH /SOUTH AND WEST /EAST" 
150 PRINT "COORDINATES ACCORDING TO YOUR" 
160 PRINT "FRIENDS HELP ON THE GROUND." 

169 REM *** PICK COORDINATES *** 

170 LET A=INT <RND*10>+1 
180 LET 0=1 NT (RND*10)+1 
190 PRINT 

200 PRINT "PRESS (ENTER) TO CONTINUE. " 

210 INPUT R* 

220 CLS 

230 PRINT "1=EXTREME SOUTH/ 10=EXTREME NORTH" 
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240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

349 

350 

360 

370 

380 

390 

399 

400 

410 

420 

430 

440 

450 

460 

470 

479 

480 

490 

500 

510 

520 

529 

530 

540 

550 

560 

570 

580 

599 

600 

610 

620 

630 

640 

700 

710 

720 

730 

740 

799 

800 

810 

820 

830 

840 

850 



PRINT 

PRINT 

PRINT "YOU NOW 

PRINT "WHAT IS 

PRINT "FOR THE 

INPUT N 

IF N<1 OR N>10 

PRINT "WHAT IS 

INPUT W 

IF W<1 OR W>10 

IF N=A AND W=0 

REM *** SCROLL 

FOR X=l TO 8 

SCROLL 

PRINT 

NEXT X 

CLS 

REM *** 

IF N>A 



1=EXTREME WEST/10=EXTREME EAST' 



HAVE ";B?" WATER BALLOONS. 
YOUR GUESS, BTWN 1-10" 
NORTH/SOUTH COORDINATE?" 



THEN 
YOUR 



GOTO 260 
GUESS FOR 



WEST/EAST?" 



THEN GOTO 310 
THEN GOTO 530 
SCREEN *** 



N<A 
N=A 
W>0 
W<0 
W=0 



COMPARE COORDINATES *** 
THEN PRINT "TOO FAR NORTH" 
"TOO FAR SOUTH" 
"NORTH, SOUTH O.K. 
"TOO FAR EAST" 
"TOO FAR WEST" 
"EAST, WEST O.K. " 



THEN 
THEN 
THEN 
THEN 
THEN 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



IT IN ";10-B;" TRIES" 



TO PLAY AGAIN." 



IF 

IF 

IF 

IF 

IF 

LET B=B-1 

IF B<1 THEN GOTO 800 

REM *** RANDOM PICK OF TWO OTHER WAYS TO LOSE *** 

LET X=INT <RND*30)+1 

IF X=7 THEN GOTO 600 

IF X=13 THEN GOTO 700 

PRINT 

GOTO 230 

REM *** WIN *** 

CLS 

PRINT "YOU HIT 

PRINT 

PRINT "PRESS (ENTER) 

INPUT R* 

RUN 

REM *** HIT MOM OR POLICEMAN *** 

PRINT 

PRINT "YOU PLASTERED YOUR MOM 

PRINT "WALKED OUT TO SEE WHAT 

PRINT "GOING ON. YOU LOSE." 

GOTO 850 

CLS 

PRINT "YOU HIT THE POLICEMAN 

PRINT "HEAD. HE CONFISCATES 

PRINT "AND YOU LOSE THE GAME." 

GOTO 850 

REM *** LOSE *** 

PRINT 

PRINT "YOU ARE OUT OF WATER BALLOONS." 

PRINT "YOU LOSE. THE COORDINATES WERE: 

PRINT "NORTH/SOUTH=";A 

PRINT "EAST/WEST=";0 

REM *** END *** 



AS SHE" 
WAS" 



ON THE" 
YOUR HOOP" 
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TRS-80 Color Computer 


1 REM **♦ 


WATER BALLOONS TRS-80 COLOR ♦** 


10 B=10 




£0 CLS 




30 


3RINT ' 


'WATER BALLOONS! " 


40 I 


3RINT 




50 


3RINT ' 


'PRESS (ENTER) TO BEGIN" 


60 GOSUB 1100 


70 CLS 




80 1 


3RINT ' 


•YOU ARE ON THE 7TH" 


90 PRINT ' 


'FLOOR BALCONY OF A" 


100 


PRINT 


"BUILDING, BLINDFOLDED" 


110 


PRINT 


"YOU ARE TRYING TO" 


120 


PRINT 


"DROP WATER BALLOONS, " 


130 


PRINT 


"INTO THE CENTER OF" 


140 


PRINT 


"A HOOP ON THE GROUND BELOW. " 


150 


PRINT 


"TO DO SO, YOU MUST SET" 


160 


PRINT 


"YOUR NORTH/SOUTH AND" 


170 


PRINT 


"WEST/EAST COORINATES" 


180 


PRINT 


"WITH YOU FRIEND'S" 


190 


PRINT 


"HELP ON THE GROUND. " 


i99 


REM *** RANDOMLY PICK COORDINATES *** 


£00 


LA=RND(10) 


£10 


LO=RND(10) 


££0 


PRINT 




£30 


PRINT 


"PRESS (ENTER) TO PLAY" 


£40 


GOSUB 


1100 


£50 


CLS 




£60 


PRINT 




£70 


PRINT 


"1=EXTREME SOUTH-" 


£80 


PRINT 


"10=EXTREME NORTH" 


£90 


PRINT 


"1=EXTREME WEST-" 


300 


PRINT 


"10=EXTREME EAST" 


310 


PRINT 




319 


REM *** MAIN LOOP *** 


3£0 


PRINT 


"YOU NOW HAVE"B"WATER BALLOONS. " 


330 


PRINT 


"WHAT IS YOUR GUESS" 


340 


PRINT 


" (BETWEEN 1 AND 10)" 


350 


PRINT 


"FOR THE NORTH/SOUTH" 


360 


INPUT 


"COORDINATE" ;NS 


370 


IF NS<1 OR NS>10 THEN 340 


380 


PRINT 


"WHAT'S YOUR GUESS" 


390 


INPUT 


"FOR EAST/WEST" :EW 


400 


IF EW<1 OR EW> 10 THEN 380 


410 


IF NS= 


=LA AND EW=LO THEN 700 


419 


REM *** SCROLL SCREEN *** 


4£0 


PRINT 




430 


FOR X= 


= i TO £4 


440 


PRINT 




450 


NEXT > 




460 


PRINT 


"YOUR FRIEND BELOW SAYS" 


470 


PRINT 




479 


REM *** COMPARE COORDINATES *** 


480 


IF NS>LA THEN PRINT "TOO FAR NORTH!" 


490 


IF NS< 


LA THEN PRINT "TOO FAR SOUTH!" 


500 


IF NS= 


=LA THEN PRINT "NORTH/SOUTH O.K. !" 


510 


IF EW>LO THEN PRINT "TOO FAR EAST! 


5£0 


IF EW<L0 THEN PRINT "TOO FAR WEST!" 
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53(ZI IF EW=L0 THEN PRINT "EAST/WEST O.K. !" 

540 B=B-1 

550 IF B<1 THEN 1000 

559 REM *** RANDOMLY TWO OTHER WAYS TO LOSE *** 

560 X=RND(30) 

570 IF X=7 THEN 800 
580 IF X=13 THEN 900 
590 PRINT 
600 GOTO £70 

699 REM *** WIN! *** 

700 CLS 

710 PRINT "YOU HIT IT IN" 10-B"TRIES" 

720 PRINT 

730 PRINT "PRESS (ENTER) TO PLAY AGAIN" 

740 GOSUB 1100 

750 RUN 

799 REM *** HIT MOM OR COP *** 

800 PRINT 

810 PRINT "YOU HIT YOUR MOM ON" 

8£0 PRINT "THE SIDEWALK!" 

830 PRINT "YOU LOSE! " 

840 END 

900 CLS 

910 PRINT "YOU HIT A POLICEMAN ON THE HEAD. " 

9£0 PRINT "HE CONFISCATES YOUR HOOP. " 

930 PRINT "YOU LOSE! " 

940 END 

999 REM *** LOSE *** 

1000 PRINT 

1010 PRINT "YOU'RE OUT OF WATER" 
1020 PRINT "BALLOONS. YOU LOSE!" 
1030 PRINT " THE COORDINATES WERE:" 
1040 PRINT "NORTH/SOUTH="LA 
1050 PRINT "EAST/WEST="LO 
1060 END 

1099 REM *** WAIT ROUTINE *** 

1100 INPUT R* 
li£0 RETURN 

TRS-80 Model III and Model 4 

1 REM *** WATER BALLOONS TRS-SO MODELS 3 AND 4 *** 

10 B=10 

20 CLS 

30 PRINT TAB (32) "WATER BALLOONS!" 

40 PRINT 

50 PRINT TAB (28) "PRESS (ENTER) TO BEGIN"; 

60 GOSUB 1000 

70 CLS 

SO PRINT "YOUR ARE ON THE 7TH FLOOR BALCONY OF A" 

90 PRINT "BUILDING, BLINDFOLDED. YOU ARE TRYING" 

100 PRINT "TO DROP WATER BALLOONS INTO A HOOP ON" 

110 PRINT "THE GROUND BELOW. TO DO SO, YOU MUST" 

120 PRINT "SET YOUR NORTH/SOUTH AND WEST/EAST" 

130 PRINT "COORDINATES ACCORDING TO YOUR FRIEND'S" 

140 PRINT "HELP ON THE GROUND." 

149 REM *** RANDOMLY PICK COORDINATES *** 

150 LA=RND(10> 
1 60 LO=RND (10) 
170 PRINT 
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ISO 

1 90 

200 

210 

220 

230 

240 

250 

260 

270 

280 

289 

290 

300 

3 1 

320 

330 

340 

349 

350 

360 

370 

380 

390 

400 

410 

420 

429 

430 

440 

450 

460 

470 

499 

500 

510 

520 

530 

540 

550 

599 

600 

610 

620 

630 

640 

700 

710 

720 

730 

740 

799 

800 

810 

820 

830 

840 

850 

999 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

IF NS< 

INPUT 

IF EW< 



1=EXTREME SOUTH - 10=EXTREME NORTH" 
1=EXTREME WEST - 10=EXTREME EAST" 



"YOU NOW HAVE"B" WATER BALLOONS." 
"WHAT'S YOUR SUESS (BETWEEN 1 AND 10) 
"FOR THE NORTH/SOUTH COORDINATE" ; NS 
1 OR NS>10 THEN 230 

"WHAT'S YOUR GUESS FOR WEST/EAST" ; EW 
1 OR EWMO THEN 230 

IF NS=LA AND EW=LO THEN 500 

REM *** SCREEN SCROLL *** 

FOR X=l TO 24 

PRINT 

NEXT X 

CLS 

PRINT "YOUR FRIEND BELOW SAYS: " 

PRINT 

REM *** COMPARE COORDINATES *** 



"TOO FAR NORTH! " 
"TOO FAR SOUTH! " 
"NORTH/SOUTH O.K. 
"TOO FAR EAST! " 
"TOO FAR WEST! " 
"EAST/WEST O.K. ! " 



IN"10-B"TRIES! " 



TO PLAY AGAIN" 



IF NS>LA THEN PRINT 

IF NS<LA THEN PRINT 

IF NS=LA THEN PRINT 

IF EW>LO THEN PRINT 

IF EW<LO THEN PRINT 

IF EW=LO THEN PRINT 

B=B-1 

IF B<1 THEN 800 

REM *** RANDOMLY TWO OTHER WAYS TO LOSE *** 

X=RND(30) 

IF X=7 THEN 600 

IF X=13 THEN 700 

PRINT 

GOTO 190 

REM *** WIN! *** 

CLS 

PRINT "YOU HIT IT 

PRINT 

PRINT "PRESS (ENTER) 

GOSUB 1000 

RUN 

REM *** HIT MOM OR COP *** 

PRINT 

PRINT "YOU PLASTERED YOUR MOM AS SHE WALKED" 

PRINT "OUT TO SEE WHAT WAS GOING ON!" 

PRINT "YOU LOSE! " 

END 

CLS 

PRINT" YOU HIT A POLICEMAN ON THE HEAD." 

PRINT "HE CONFISCATES YOUR HOOP" 

PRINT "AND YOU LOSE THE GAME!" 

END 

REM *** LOSE *** 

PRINT 

PRINT "YOU'RE OUT OF WATER BALLOONS!" 

PRINT "YOU LOSE. THE COORDINATES WERE:" 

PRINT "NORTH/SOUTH="LA 

PRINT "EAST/WEST="LO 

END 

REM *** WAIT ROUTINE *** 
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1000 INPUT R* 




1010 RETURN 




V1C-20 




1 REM #*# WATER BALLOONS VIC-£0 *** 




10 B=10 




£0 PRINT CHR*(147) 




30 PRINT "WATER BALLOONS!" 




40 PRINT 




50 PRINT "PRESS (SHIFT) TO BEGIN" 




60 GOSUB 1100 




70 PRINT CHR*<147) 




80 PRINT "YOU ARE ON THE 7TH" 




90 PRINT "FLOOR BALCONY OF A" 




100 


PRINT "BUILDING, BLINDFOLDED. " 




110 


PRINT "YOU ARE TRYING TO" 




1£0 


PRINT "DROP WATER BALLOONS" 




130 


PRINT "INTO THE CENTER OF" 




140 


PRINT "A HOOP ON THE GROUND." 




150 


PRINT "TO DO SO, YOU MUST" 




160 


PRINT "SET NORTH/SOUTH AND" 




170 


PRINT "WEST/EAST COORDINATES" 




180 


PRINT "WITH YOUR FRIEND'S" 




190 


PRINT "HELP ON THE GROUND. " 




199 


REM **# PICK COORDINATES *** 




£00 


I_A=INT(RND<1)*10)+1 




£10 


LQ=INT(RND(1)*10)+1 




££0 


PRINT 




£30 


PRINT "PRESS (SHIFT) TO PLAY" 




£40 


GOSUB 1100 




£50 


PRINT CHR*<147) 




£60 


PRINT 




£70 


PRINT "1=EXTREME SOUTH-" 




£80 


PRINT "10=EXTREME NORTH" 




£90 


PRINT "1=EXTREME WEST-" 




300 


PRINT "10=EXTREME EAST" 




310 


PRINT 




3£0 


PRINT "YOU NOW HAVE"B" WATER BALLOONS" 




330 


PRINT "WHAT'S YOUR GUESS" 




340 


PRINT "(BETWEEN i AND i0) " 




350 


PRINT "FOR THE NORTH/SOUTH" 




360 


INPUT "COORDINATE" :NS 




370 


IF NS<1 OR NS> 10 THEN 340 




380 


PRINT "WHAT'S YOUR GUESS" 




390 


INPUT "FOR EAST/WEST" ;EW 




400 


IF EW<1 OR EW> 10 THEN 380 




410 


IF NS=LA AND EW=LQ THEN 700 




4£0 


PRINT 




4£9 


REM *** SCROLL SCREEN *** 




430 


FOR X=i TO £4 




440. 


PRINT 




450 


NEXT X 




460 


PRINT "YOUR FRIEND BELOW SAYS" 




470 


PRINT 




479 


REM *** COMPARE COORDINATES *** 




480 


IF NS>LA THEN PRINT "TOG FAR NORTH!" 




490 


IF NS<LA THEN PRINT "TOO FAR SOUTH!" 




500 


IF NS=LA THEN PRINT "NORTH, SOUTH O.K. !" 




510 


IF EW>LC THEN PRINT "TOO FAR EAST!" 
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5£0 


IF EW<L0 THEN PRINT "TOO FOR 


WEST ! " 


538 


IF EW= 


LO THEN PRINT "ERST, WEST O.K. 


540 


B=B-1 






550 


IF B<1 


THEN 1000 




559 


REM *** RANDOMLY PICK £ OTHER 


WAYS T 


560 


X=INT(RND(1)*30)+1 




570 


IF X=7 


THEN 800 




580 


IF X=13 THEN 900 




530 


PRINT 






600 


GOTO £70 




699 


REM *** WIN! *** 




700 


PRINT 


CHR*(147) 




710 


PRINT 


"GOT IT IN"10-B"TRIES!" 




7£0 


PRINT 






730 


PRINT 


"PRESS (SHIFT) TO PLAY. 




740 


GOSUB 


1100 




750 


RUN 






799 


REM *** HIT MOM OR POLICEMAN 


#** 


800 


PRINT 






810 


PRINT 


"YOU HIT YOUR MOM ON" 




8£0 


PRINT 


"THE SIDEWALK! " 




830 


PRINT 


"YOU LOSE! " 




840 


END 






900 


PRINT 


CHR*(147) 




910 


PRINT 


"YOU HIT THE POLICEMAN! 


II 


9£0 


PRINT 


"HE CONFISCATES YOUR" 




930 


PRINT 


"HOOP. YOU LOSE!" 




940 


END 






999 


REM *** LOSE *** 




100IZ 


1 PRINT 






101IZ 


1 PRINT 


"YOU' RE OUT OF WATER" 




10£C 


> PRINT 


"BALLOONS. YOU LOSE ! " 




1032 


PRINT 


"THE COORDINATES WERE: 


II 


104IZ 


PRINT 


"NORTH/SOUTH="LA 




105IZ 


PRINT 


"EAST/WEST="LO 




1068 


END 






i093 


REM *** WRIT ROUTINE *** 




iiae 


1 WRIT 


653, 1 




me 


WRIT 


653, 1, 1 




use 


RETURN 





TO LOSE *** 
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BONUS PROGRAM #7 

THE MONSTER IN THE MARSH 



io enjoys traipsing through 
t h o Li t. r e a 1 .1 y g e 1. 1 i n g wet, 
s for you. To win this 



If you're the type of person wl - 
slushy, f o g g y , roc k y p 1 a c e s , w i 
then THE MONSTER IN THE MARSH 
game you make your way to the end of the marsh,, You do 
this by tossing rocks left, right, or' straight ahead, to 
check if it's safe to move. After each time you toss a 
rock, you have the choice of moving, or staying where you 
3.r^. Watch your step! If you move to an unsafe spot, 
you'll sink, But everyt i me you stay where you are, the 
MONSTER OF THE MARSH gains a" step on you. Sooner, or 
later, it's sink or swim in this marsh! 



ADAM 




1 


REM 


### 


10 


s = 


15 


20 


m = 


15 


30 


r = 


24 


40 


HOME 



THE MONSTER OF THE MARSH ADAM **** 



50 PRINT TAB(3); "THE MONSTER IN THE MARSH" 

60 PRINT 

70 PRINT TAB(4); "Press any key to begin." 

80 GET n$ 

90 x = INT(RND(1 )*3)+1 

99 REM *** main loop *** 
100 HOME 

110 IP r < 1 THEN fl = 1 

120 PRINT "You are "; s; " step(s) from the" 
125 PRINT "marsh's end" 
130 PRINT "you have "; r; " rock(s) in" 
135 PRINT "your pocket" 

140 PRINT "the monster is "; m; " step(s)" 
145 PRINT "behind you." 
150 PRINT 

160 PRINT "Your choices are:" 
170 PRINT 

180 PRINT "1) Take a step" 
190 PRINT "2) Stay where you are" 
200 IP fl = THEN PRINT "3) Toss a rock" 
210 PRINT 

220 PRINT "Type a number, then (RETURN)." 
230 INPUT "What is your choice: "; ch 
240 IP fl = 1 AND ch > 2 THEN 220 

250 IP ch < 1 OR ch > 3 THEN PRINT "Between 1 and 3, please!": GOTO 220 
260 ON ch GOTO 700, 1000, 300 
300 HOME 

310 PRINT "Type the number of the" 
315 PRINT "direction you want to throw" 
320 PRINT "the rock" 
330 G0SUB 2000 
340 fl = 1 
350 HOME 



95 



10 AWESOME PROGRAMS FROM K-POWER 



360 
370 
380 
390 
400 
410 
420 
430 
699 
700 
710 
720 
730 
740 
750 
760 
770 
out! 
780 
790 
800 
810 
820 
830 
840 
850 
860 
999 
1000 
1010 
1020 
1030 
1999 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
3999 
4000 
4010 
4020 
4030 
4999 
5000 
5010 
5020 
5030 



IP x <> w THEN PRINT "SPLASH!" 

IP x = w THEN PRINT "THUD!" 

r = r-1 

IP m < 1 THEN 4000 

PRINT 

PRINT "Press any key to continue." 

GET n$ 

GOTO 100 

REM *** take a step routine *** 

HOME 

PRINT "Press the number of the" 

PRINT "direction you want to step in" 

GOSUB 2000 

HOME 

IP w <> x THEN PRINT "SPLASH! YOU'RE SINKING!" 

z = INT(RND(1 )*3) + 1 

IP w <> x AND z = 1 THEN m = m-1 : PRINT "BUT, you pull yourself 

IP w <> x AND z <> 1 THEN PRINT "YOU LOSE!": END 

IP w = x THEN s = s-1 : PRINT "You stepped safely!" 

IP m < 1 THEN 4000 

IP s < 1 THEN 4000 

PRINT 

PRINT "Press any key to continue." 

fl = 

GET n$ 

GOTO 90 

REM *** stay where you are *** 

in = m-1 

IP m < 1 THEN 4000 

fl = 

GOTO 100 

REM *** choose direction *** 

PRINT "then press (RETURN) ." 

PRINT 

PRINT "1 ) left" 

PRINT "2) right" 

PRINT "3) straight ahead" 

PRINT 

INPUT "Which way: "; w 

IP w < 1 AND w > 3 THEN PRINT "Between 1 and 3, please!": GOTO 2060 

RETURN 

REM *** LOSE *** 

HOME 

PRINT "The monster eats you and says," 

PRINT '"Could use a "bit more salt!'" 

PRINT "You lose, for sure.": END 

REM *** WIN *** 

HOME 

FOR t = 1 TO 200 

PRINT " YOU MADE IT ! ! ! " 

NEXT t 
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Apple II and Apple He 



l 

10 

20 

30 

40 

50 

60 

70 

SO 

90 

99 

100 

1 1 o 

1 20 

1 30 

1 40 

150 

1 60 

170 

180 

1 90 

200 

2 1 

220 

230 

240 

250 



REM *** THE MONSTER OF THE MARSH APPLE *** 
S = 15 
M = 15 
R = 24 
HOME 

PRINT TAB( 
PRINT 

PRINT TAB( 
GET N* 
X = INT ( RND <1> * 3) + 
REM *** MAIN LOOP *** 
HOME 

1 THEN FL = 1 
"YOU ARE "S" STEP(S) FROM THE MARSH'S END" 
"YOU HAVE "R" ROCK(S) IN YOUR POCKET" 



7) "THE MONSTER IN THE MARSH" 
8) "PRESS ANY KEY TO BEGIN. " 
1 



T "THE MONSTER 



"YOUR CHOICES ARE: 



" 1) 

— 



260 

300 

3 1 

320 

330 

340 FL. 

350 

360 

370 

380 

390 

400 

4 1 

420 

430 

699 

700 

710 

720 

730 

740 

750 

760 

770 



IF R 
PRINT 
PRINT 
PR I N 
PRINT 
PRINT 
PRINT- 
PRINT 
PR I NT 
IF FL 
PRINT- 
PRINT 
INPUT 
IF FL 
IF CH 
220 

ON CH GOTO 
HOME 
PRINT- 
PRINT 
GOSUB 
1 



BEHIND YOU" 



TAKE A STEP" 

STAY WHERE YOU ARE" 

THEN PRINT "3) TOSS 



ROCK" 
(RETURN) 



PRINT "BETWEEN 1 AND 



"TYPE A NUMBER, THEN PRESS 
"WHAT IS YOUR CHOICE: " ; CH 
= 1 AND CH > 2 THEN 220 
< 1 OR CH > 3 THEN 



700 , 1000 . 



TYPE THE NUMBER OF THE DIRECTION" 
YOU WANT TO THROW THE ROCK. " 



PLEASE 



GOTO 



HOME 
IF X 
IF X 
R = R 
IF M 
PRINT- 
PRINT "PRESS 
GET Nt- 
GOTO 100 
REM *** TAKE 
HOME 



> W THEN PRINT "SPLASH!" 
W THEN PRINT "THUD! " 
1 
1 THEN 4000 



ANY KEY TO CONTINUE. 



A STEP ROUTINE *** 



PRINT "PRESS THE NUMBER OF THE DIRECTION" 
YOU WANT TO STEP IN." 
ooo 



PR I NT 
GOSUB 
HOME 

IF W < > X THEN 
Z = INT ( RND (1) 
IF W < > X AND Z 
YOURSELF OUT ! " 



PRINT "SPLASH! 

* 3) + 1 

= 1 THEN M == M 



YOU'RE SINKING! " 
- 1: PRINT "BUT, YOU PULL 



780 
790 
GOO 
8 1 



IF 
IF 
IF 
IF 



W 

W 

M 
o 



■■■ X AND Z < 
THEN 8 ~ < 
THEN 4000 
THEN 5000 



1 THEN PRINT "YOU LOSE!": END 
: PRINT "YOU STEPPED SAFELY!" 
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820 


PRINT 








830 


PRINT "PRESS ANY KEY TO CONTINUE." 








840 FL = 








850 


GET N* 








860 


GOTO 90 








999 


REM *** STAY WHERE YOU ARE *** 








1 000 


M = M - 1 








1 1 


IF M < 1 THEN 4000 








1020 


FL = 








1 030 


GOTO 100 








1999 


REM *** CHOOSE DIRECTION *** 








2000 


PRINT "THEN PRESS (RETURN)." 








20 1 


PRINT 








2020 


PRINT " 1) LEFT" 








2030 


PRINT "2) RIGHT" 








2040 


PRINT "3) STRAIGHT AHEAD" 








2050 


PRINT 








2060 


INPUT "WHICH WAY: ";W 








2070 


IF W < 1 OR W > 3 THEN PRINT "BETWEEN 
2060 


1 AND 3, 


PLEASE ! " 


: GOTO 


2080 


RETURN 








3999 


REM *** LOSE ##* 








4000 


HOME 








40 1 


PRINT "THE MONSTER EATS YOU AND SAYS," 








4020 


PRINT "'COULD USE A BIT MORE SALT!'" 








4030 


PRINT "YOU LOSE, FOR SURE.": END 








4999 


REM *** WIN *** 








5000 


HOME 








50 1 


FOR T == 1 TO 200 








5020 


PRINT " YOU MADE IT ! ! ! " 








5030 


NEXT T 








Atari 










1 RE 


1 *•**■ THE MONSTER IN THE MARSH ATARI -**■*• 








10 DIM R* ( 1 ) 








20 S 










30 P 


"EC NT CHE* (125) 








40 F 


"JSITION 7,0 








50 P 


stmt- "-ri.ir.r MOMCTrD t |\! XLir::- ivi/\pcu i " 








60 P 


- c: t -r t in ;■•. i -/ "r 








70 P< 


;• t ?• i r 1 1 p.-"" rr' y~ ;:::• o i in p." t ; i i:.i i-. : \ ' : ' r> c< p ■:::■. t m ■ ' - 








80 G 


j 8 LIB 3000 








90 X 


■-INT (END ( 1 ? *3) -!•! 








99 E 


...1 1 ~ * » t iri J. f M UUUI .% *• S 








100 


: 'RIMT CHE* (125) 








1 1 o 


r tr p. : ;' ■{ "p.. i|::."j\j |"| ~- 'i 








1 20 


:, R I NT !i YO 1 ...: ' |: >'E " % 8 i " S"! F i ' ( s ) FROM THh MAE< 


5H EDGE" 






i 30 


:, R1'NT "YOU HAVE ";R; M ROCK(S) IN YOUR PQ. 


■JKET" 






140 


::■ rn t k : r 1 1 • •■■ i.j r:~ M n |\ ! <~: T' ir t: ■ to ' ' » hi ~ ' ■ <::: t ir p ,-' i :m o r™ i .. ; t i 


-4D VQU" 






150 
160 . 


-PINT "YOUR CHOICES ARE;: " 








170 


: 'RINT 








180 
190 


: 'RINT !, 2) STAY WHERE YOU ARE" 








■~ • i ) ( j 


IE FL---0 THEN RRiMT "3) TOSS A ROCK" 








2 1 


"=RINT 








220 , 


::■ q *:* i-, i r i i v.:: k j -r r..." q> \y n i i l:> r - - i...i r i t r- c::" ■■(■• i j r~ h i !.::■ e:' i:r (.::• c- ,■ i:: - c: - 


n.JRN; " 






230 


[NPUT CH 
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240 


IF FL=1 AND CH>2 THEN GOTO 220 






250 


IF CH<1 OR CH>3 THEM PRINT "BETWEEN 1 AND 3, 


PLEASE ! 


" s GOTO 220 




ON CH GOTO 700,1000,300 






29? 


REM *** THROW A ROCK ROUTINE *** 






300 


PRINT CHR*(125) 






3 1 


PRINT "TYPE THE NUMBER OF THE DIRECTION" 






320 


PRINT "YOU WANT TO TOSS THE ROCK," 






330 


GOSUB 2000 






340 


FL--1 






350 


PRINT CHR$(125X 






360 


IF XO-W THEN PRINT "SPLASH!" 






3 7 


IF X=W THEN PRINT "THUD'" 






380 


R-R-l 






390 


IF M<1 THEN 4000 






400 


PRINT 






4 1 


PRINT "PRESS (RETURN) TO CONTINUE,. " 






420 


G08| IB 3000 






430 


GOTO 100 






699 


REM *** TAKE A STEP ROUTINE *■** 






700 


PRINT CHR*(125) 






"7 -1 ("I 
.' J. *_' 


PRINT "PRESS THE NUMBER OF THE DIRECTION" 






720 


PRINT "YOU WANT TO STEP IN," 






730 


GOSUB 2000 






740 


PRINT CHR$U25) 






750 


IF WOX THEN PRINT "SPLASH! YOU'RE SINKING! 


!l 




760 


ZOMT (RNDCl )*3) --1 






770 


IF WOX AND 7-1 THEN M=M 1: PRINT "BUT, YOU P 


...ILL YOUF 


■SELF OUT ! " 


780 


IF WOX AND 7<>1 THEN PRINT "YOU LOSE i": END 






"7 Q f ) 


I F W == X T H E N S == S -• 1 :: P R I M T "YOU S T E P P ED 5 A F E L Y ! 


It 




800 


IF MO THEN 4000 






8 i 


IF SO THEN 5000 






820 


PR TNT 






830 


o ', :.' "• i\ it 1 1 r.:> o 1" o c:- ,■■ tr> lt t ! i R r I \ "f n r- n k \ -j- t k 1 up n 






840 


FL=0 






850 


Bnr;i iR ;','(") ("io 






fcj »*J '..' 


GOTO 90 






999 


REM *•** STAY WHERE YOU ARE **#• 






1 00 


."> M-M- 1 






1 <) i 


") JIT lvl. : - ( -j-l-jfT^j /j.("jf)j"l 






1.02 


.J i" !.... - : 






103 


J GOTH 100 






•! OD 


? REM **-* CHOOSE DIRECTION **•* 






2.00 


J '- 1 \ .:. 1 i '. i I M,... l--i I 1 V U. ■-.! -.. J 1 1 11.... 1 I \L_ 1 ' Ji\ 1 'W 1 ■■-!,... ! ., 






201 


j PRINT 






~?<y? 


5 PRINT "1) LEFT" 






2 3 


:> PRINT "2) RibHT" 






204 


:-> PRINT "3) STRAIGHT AHEAD" 






v.' M ""> 

206 


..) h' r j. n r 

J PRINT "WHICH WAV" 






2 O <:..< 


j INPUT W 






207 


."> •. f- 7 W<" 1 OF-: WO THEN PPYUvT "BETWPlM i qHU 3 P 


LEASE ! " r 


GOTO 2060 


208 


-j pir-vi IDM 

J I ■.!.... '. '....'I ■*; 'i 






;.-. <::> o 


? REM >;** INPUT ROUTINE! *** 






3 


'j INPUT RT 






Z 2 


"J RETURN 






'T O O 

■■■!■ 00 


? REM **■* LOSE *•■'*■* 
J PRINT CHE0 125) 






401 


J PRINT "THE MONSTER EATS YOU AND SAYS," 






4 2 


j PR I N'T "'COULD USE A BIT MORE SALT 1 '" 
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403< 


j PRINT "YOU LOSE, FOR SURE,"; END 




4999 REM **■*■ WIN *** 




5000 PRINT CHR*(125) 




5010 FOR T=i TO 200 




5020 PRINT " YOU MADE IT : i,M ; 




503! 


) NEXT T 




Commodore 64 




1 REM *** THE MONSTER IN THE MARSH 64 *** 




10 S=15 




£0 t 


1=15 




30 1 


3=£4 




40 


PRINT CHR$(147) 




50 1 


3RINT TAB (7) "THE MONSTER IN THE MARSH!" 




60 


3RINT 




70 


3RINT TAB<8) "PRESS (SHIFT) TO BEGIN." 




80 GOSUB 3000 




90 > 


<=INT(RND(1>*3)+1 




99 1 


REM *** MAIN LOOP *** 




100 


PRINT CHR$(147) 




110 


IF R<1 THEN FL=1 




1£0 


PRINT "YOU ARE"S"STEP(S) FROM THE MARSH'S END" 




130 


PRINT "YOU HAVE" R" ROCK <S) IN YOUR POCKET" 




140 


PRINT "THE MONSTER IS"M"STEP (S) BEHIND YOU" 




150 


PRINT 




160 


PRINT "YOUR CHOICES ARE:" 




170 


PRINT 




180 


PRINT "1) TAKE A STEP" 




190 


PRINT "£> STAY WHERE YOU ARE" 




£00 


IF FL=0 THEN PRINT "3) TOSS A ROCK" 




£10 


PRINT 




££0 


PRINT "TYPE A NUMBER, THEN PRESS (RETURN)." 




£30 


INPUT "WHAT IS YOUR CHOICE" ;CH 




£40 


IF FL=1 AND CH)£ THEN ££0 




£50 


IF CH<1 OR CH>3 THEN PRINT "BETWEEN 1 AND 3, PLEASE!": SOTO 2:20 


£60 


ON CH GOTO 700,1000,300 




£99 


REM *** TOSS A ROCK *** 




300 


PRINT CHRSU47) 




310 


PRINT "TYPE THE NUMBER OF THE DIRECTION" 




3£0 


PRINT "YOU WANT TO THROW THE ROCK, " 




33& 


GOSUB £000 




340 


FL=i 




350 


PRINT CHR$<147> 




360 


IF XOW THEN PRINT "SPLASH!" 




370 


IF X=W THEN PRINT "THUD!" 




380 


R=R-1 




390 


IF M<1 THEN 4000 




400 


PRINT 




410 


PRINT "PRESS (SHIFT) TO CONTINUE." 




4£0 


GOSUB 3000 




430 


GOTO 100 




699 


REM *** TAKE A STEP ROUTINE *** 




700 


PRINT CHR$<147) 




710 


PRINT "PRESS THE NUMBER OF THE DIRECTION" 




7£0 


PRINT "YOU WANT TO STEP IN, " 




730 


GOSUB £000 




740 


PRINT CHR*(147) 




750 


IF WOX THEN PRINT "SPLASH! YOU'RE SINKING!" 




760 


Z=INT(RND(1)*3)+1 
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770 IF WOX AND Z=l THEN M=M-1: PRINT "BUT, YOU PULL YOURSELF OUT!" 

78® IF WOX AND ZOl THEN PRINT "YOU LOSE !": END 

790 IF W=X THEN S=S-1 : PRINT "YOU STEPPED SAFELY ! " 

800 IF M<1 THEN 4000 

810 IF S<1 THEN 5000 

820 PRINT 

830 PRINT "PRESS (SHIFT) TO CONTINUE." 

840 FL=0 

850 GOSUB 3000 

860 GOTO 90 

999 REM *** STAY WHERE YOU ARE *** 

1000 M=M-1 

1010 IF M<1 THEN 4000 
1020 FL=0 
1030 GOTO 100 

1999 REM *** CHOOSE DIRECTION *** 

2000 PRINT "THEN PRESS (RETURN)." 
2010 PRINT 

2020 PRINT "1) LEFT" 

2030 PRINT "2> RIGHT" 

2040 PRINT "3) STRAIGHT AHEAD" 

2050 PRINT 

2060 INPUT "WHICH WAY";W 

2070 IF W<1 OR W>3 THEN PRINT "BETWEEN 1 AND 3, PLEASE !" :GOTO 2060 

2080 RETURN 

2999 REM *** WAIT ROUTINE *** 

3000 WAIT 653, i 
3010 WAIT 653, 1, 1 
3020 RETURN 

3999 REM *** LOSE *** 

4000 PRINT CHR*(147) 

4010 PRINT "THE MONSTER EATS YOU AND SAYS, " 

4020 PRINT '"COULD USE A BIT MORE SALT!'" 

4030 PRINT "YOU LOSE. FOR SURE. ":END 

4993 REM *** WIN *** 

5000 PRINT CHR*(147) 

5010 FOR T=l TO 200 

5020 PRINT " YOU MADE IT !!! "; 

5030 NEXT T 

IBM PC 

1. REM *•** liONSTER IN THE HARSH *■*# 

20 M~M.5 

30 F-24 

40 CLS 

50 PRINT !{■:£■(?) "THE MOMS TEE" 

60 FP1NT TAB 03; "IN I' HE MARSH'" 

70 PRINT 

3 O p R .[ N f f (■ B t 4 ) " P f ; : E S S AMY R E Y T B E 6 1 N ' ' 

so a£~:inke;y* 

OX) IF A*--""" THEM 90 

109 REM ■*** MA I IT LOOP •*■■*■* 

I 10 .O'-RM 0: .:■:.» 

120 CI...S 

130 J.F R-: 1 M-IEM FI...-1 

1 40 PR I MI " YOU ARE " S " ST EF' ( S ) " 

150 PRIM! "FROM THE MARSH'S END" 

160 PRINT 
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1 70 


PR INT " Y 0U HAVE " R " ROCK ( S ) " 




180 


PRINT "IN YOUR POCKET" 




J. 90 


PR I N T 




200 


PRINT "THE MONSTER IS"M 




2 1 


PRINT "STEP(S) BEHIND YOU" 




22<..> 


PR I N T 




230 


PRINT "PRESS ANY KEY TO CONTINUE" 




240 


A*=INKEY* 




250 


IF A*="" THEM 240 




260 


CLS 




270 


PRINT "YOUR CHOICES ARE:" 




280 


PRINT 




290 


PRINT "1 ) TAKE A STEP" 




300 


PRINT "2; STAY WHERE YOU ARE" 




310 


IF FL.--0 THEN PRINT "3> TOSS A ROCK" 




320 


PRINT 




•330 


PRINT "TYPE m NUMBER" 




340 


PRINT "THEN PRESS (ENTER)" 




350 


PR INI "WHAT IS YOUR CHOICE" 




•360 


INPUT CH 




3 70 


LF FL-1 AND CH>2 THEN 330 




"330 


IF OKI. OR CH>3 THEN 260 




390 


ON CH GOTO '700,1000,400 




399 


REM #*■* THROW A ROCK *** 




400 


CLS 




4 1 


PR 1 NT " I V PE THE NUMBER " 




420 


PRINT "OF TRIE DIRECTION" 




4.30 


PRINT "YOU WANT TO" 




440 


PR INI "THROW THE ROCK" 




450 


PR INI 




460 


OOSUB 200O 




4/0 


F L. ■■■■: :l. 




480 
490 


CLS 

IF >;■::. >W THEN PRINT "SPLASH 1 " 




•500 


IF X=W fHEN PRINT "THUD 1 " 




5 1 


R--=R 1 




520 

1 ••*-; "-!' f"- ( 


IF M<.1. THEN 4000 




...jj' 1 -..' 
';~i 4 *..' 


1 h. .1. 1 ■! 1 

PRINT' "PRESS hN\ KEY TO CONTINUE" 




550 


A*='.LNKEr* 




560 


If-- h* : =:"» THEN 55U 
f-ifi r n i "'! i 




6W 


REM *■** TAKE, m S 1 EF' **•* 




'7 00 


CLS 




7 :i. o 


PR 1 N ! " PRESS THE NUMBER " 




7 20 


PRINT "OP THE DIRECTION" 




/ 30 


PRINT "yOU WANT 10 STEP IN,": PRINT 




740 


60SUB 2'JOO 




75U 


CLS 3 Z-RNDC4.'' 




7 60 


IF W-=, >X IHFN PR NTT "SPLASH YOU'RE SINKING 1 " 




780 


IF WO* AND Z-3 MIEN N=M :lr, PRINT "BUT, YOU PLIU... Y 


JUESE !.,F 01. 1 I ! " 


7 9 u 


IF UK >X mI'TD Z< M 1 'HEM PRINT "YOU LOSE !": END 




800 


I F W = X T IT E !' i S - B - 1 s R R INT " Y 1 J S T IE P P E I > S A F E L Y ! " 




8 1 


IF IT- 1 I' HEN <l ','!_«> 




82:0 
830 

'":/ .'l i' "i 


IF S< 1 I HEN 5O00 

PR IN I 

Fl ~0 

PRINT "PRESS hMi KEY TO COMIIMUE" 




o -1- U 




86 


A4-INKEYT. 
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870 


IF a*="" THEN 860 




880 


GOTO 110 




999 


REM *** STAY WHERE YOU ARE *** 




1 000 


M~M 1 




1 1 


IF M<1 THEN 4000 




1020 


F"L-0 




1 030 


GO TO 1 1 




■/uwj 


PRINT "THEN PRESS" 




2010 


PRIMl" "THE i ENTER.) KEY" 




20 20 


PR I NT 




2030 


PRINT "1> LEFT" 




2040 


PRINT "2> RIGHT" 




2050 


PRINT "3> STRAIGHT' AHEAD" 




2060 


PRINT 




20/U 


PRINT "WHICH HOY"; 




2080 


INPUT W 




2090 


IF W< 1 OR W>3 THEN PRINT "1,2, OR 3 PLEASE' 


":GOTO 2070 


2100 


RET URN 




3999 


REN ***■ TOO BAD ! *** 




4000 


CLS 




4010 


PRINT "THE MONSTER EATS YOU AND SAYS," 




4020 


PRINT "COULD USE A BIT MORE SALT 1 " 




4030 


PRINT "YOU LOSE, FOR SURE.": END 




4999 


REM *** YOU MADE IT! *** 




So 00 


CLS 




50 1 


FOR T-l 10 200 




5020 


PRINT " YOU MADE I T * ! ! "; 




5030 


NEXT T 




5040 


END 




TI-99/4A 




1 RE 


M .*..«._* -rucr M ri h ; o tit p r hi ~i"i..ij.T MADCU j,.-. .«..«• 




20 i v 


-~ 1 5 




30 F> 


--:■ /I 

-— j:. r 




40 C 


ALL. CLEAR 




50 F 


PINT TAB (7) ;, "THE. MONSTER" 




60 F 


R I N T T A B ( 7 ) ; " I N T H E M A R S H ' ' 
::;:• '< mt 




/ U r 
80 F 


1 \ ■- IM ! 

PINT "PRESS (ENTER) TO BEGIN"; 




90 I 


NPUT R* 




99 F- 


EM *** MAIN LOOP *•*■■* 




1 00 


V — r !\ it i T .4. p k 1 n •. j.. 1 




1 3.0 


1" ■■'.:-, 1 ' 1 ""■ 1 f r A 




120 


jc €:■.■•• 1 tulvni it/--, ir:'i or.- i /| ,•"•, 




1 30 


LTI ... 1 

i 1... .1. 




140 


PR I NT " YOU ARE "iS; " STEP ( S ) " 




1.50 


PRINT "FROM THE MARSH'S EDGE" 




1 60 


PRINT 




170 


iJI'JThlT ' ' ■-.■■■ 1 — 1 1 f I..IAI lir !i „ O . "Dpri.-'iCl n 




180 


PR T NT !: I N YOUR POCK EH" !! 


'1 


i 90 


IT '}'.'> T MT 




200 


pp t mt " T(...| j r ivirt!\jc:- -rep r c:- " » m 




2 1 


PRINT "STEP (Si BEHIND YOU" 




220 


PR I NT 




"~>~.\(': 


PRINT "YOUR CHOICES ARE:" 




240 


PR I NT 




250 


PRINT "1 ) TAKE A STEP" 




.-.:". '..') '-..' 


PRINT !: 2) STAY WHERlE YOU ARE" 
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270 


IF FDO THEM 280 ELSE 290 




280 


PRINT "3) TOSS A ROCK" 




290 


PRINT 




300 


PRINT "TYPE A NUMBER" 




3 1 


PRINT "THEN PRESS (ENTER) " 




320 


PRINT "WHAT IS YOUR CHOICE"; 




'"•r -?; r-. 


INPUT CH 




340 


IF FL==J. THEN 350 ELSE 360 




;-rjr--j-; 


IF CH>2 THEN 300 Fi SE 360 




360 


IF CH< 1 THEN 380 ELSE 370 




370 


IF CH>3 THEN 380 ELSE 410 




380 


PRINT " J. „2 OR 3 PLEASE 1 " 




390 


PRINT 




400 


GOTO 230 




4 1 


ON CH GOTO 620,880,420 




4 1 9 


REM *•** TOSS A ROCK *#* 




420 


CALL.. CLEAR 




430 


PRINT "TYPE THE NUMBER" 




■440 


PRINT "OF THE DIRECTION" 




450 


PRINT "YOU WANT TO" 




460 


PRINT "TOSS THE ROCK," 




470 


PRINT 




480 


GOSUB 920 




490 


FL==1 




5 


CALL CLEAR 




5 1 


IF XOW THEN 520 ELSE 530 




520 


PRINT "SPLASH 1 " 




530 


IF X~W THEN 540 ELSE 550 




540 


PRINT "THUD ! " 




550 


R=R--1 




560 


IF M<1. THEN 1070 




570 


PRINT 




580 


PRINT "PRESS (ENTER)" 




590 


PRINT "TO CONTINUE., " 




600 


INF' LIT R* 




6 1 


GOTO 110 




/"■ "( f ? 


REM *•*••*■ ' TAKE A STEP *■*■*■ 




620 


CALL CI.. EAR 




/- 3 ("; 


PRINT "PRESS THE NUMBER" 




640 


PRINT "OF THE DIRECTION" 




650 


PRINT "YOU WANT TO STEP" 




6Ai"; 


GOSUB 920 




670 


CALL. CLEAR 




680 


IF WOX THEN 690 ELSE 770 




690 


Z--=IMT(3*RND) i-i 




700 


PR I NT ,: SPLASH YOU ' RE S I NK I MG ! " 




7 1 


IF Z-l THEN 720 ELSE 740 




720 


PRINT "BUT, YOU PULL YOURSELF 01. 


r i i! 


'729 


REM **•*• STAY WHERE YOU ARE ***■ 




7 3 


M==M 1 




740 


T :::: ~? . " '•. \ T ',...} IT h 1 -7 k; /"j rn op ~7 ~7 o 




750 


PRINT "YOU LOSE : " 




/ c>'./ 


END 




770 


IF W=X THEN 780 ELSE 800 




-,*Ofi 


PRINT "YOU STEPPED SAFELY" 




"7 c:) i ") 


S-=S 1 




800 


IF M<1 THEN 1070 




1 


IF 3<1 THEN 1130 




820 


PRINT 
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10 AWESOME PROGRAMS FROM K-POWER 



330 PRINT "PRESS (ENTER) " 

840 PRINT "TO CONTINUE, " 

8 5 O I N P ! J T R ■■(■ 

060 FL----0 

870 GOTO 100 

880 M-M—l 

390 IF !'!<:!. THEN 1070 

910 GOTO 100 

919 REM *■** DIRECTION LOOP *#* 

920 PRINT "THEN PRESS" 

930 PRINT "THE CENTEIR) KEY. " 
940 PRINT 

.-' \..t l ..i l . \ .!. I 'i I .L. .-' L-. L... ! i 

960 PRINT "2) RIGHT" 

970 PRINT "3) STRAIGHT AHEAD" 

980 PRINT 

~s o (-■ o r::- r i-. i-r "',.', 1...1 t r- 1...1 ; , •■ a \/ ■ 1 „ 
.- / -.-■' 1 . \ .1. I h i '.-'v 1 -: ..'. '....■ I 1 r-i H 1 * 

1 I N P U 7 W 

1 1 I F W < 1 T |-j E N 1 4 E i... S EI 106 
1020 PRINT "1,2 OR 3 PLEASE 1 " 
1030 IF W>3 THEN 1040 ELSE 1060 

1 " i 5 G C i G J J 

1060 RETURN 

1069 REIN *•*•* YOU LOSE •'*•-** 

1 7 C A L i.... C L E A R 

1 9 P R I NT "YOU AND SAYS,' 1 

1100 PRINT "'COULD USE A BIT NO RE SAL"! 

1110 PRINT "YOU LOSE, FOR SURE," 

1 1 20 END 

1130 CALL CLEAR 

1140 FOR T=i TO 100 

1 160 PR I NT 

■] I "' Tl Ml" VT T 
.1 ,t -' •-■' t i i... .'\ I : 

■! -I Of; I'"' Kjr) 

Timex 1000 w/16K RAM Pack and Timex 1500 

1 REM *■*** MONSTER IN THE MARSH TIMEX **■** 

10 LET S=15 

20 LET M=15 

30 LET R=24 

40 CLS 

50 PRINT TAB (4) ; "THE MONSTER IN THE MARSH" 

60 PRINT 

70 PRINT TAB (5) ; "PRESS (ENTER) TO BEGIN." 

80 INPUT R* 

90 RAND 
100 LET F=0 
110 LET C=0 
120 LET W=0 
130 LET X=INT (RND*3>+1 

139 REM *** MAIN LOOP *** 

140 CLS 

150 IF R<1 THEN LET F=l 

160 PRINT "YOU ARE ";S;" STEP(S) FROM THE" 

170 PRINT "END OF THE MARSH. YOU HAVE " ; R 
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180 


PRINT "ROCK(S) IN YOUR POCKET." 




190 


PRINT "THE MONSTER IS ";M;" STEP<S>" 




200 


PRINT "BEHIND YOU. " 




210 


PRINT 




220 


PRINT "YOUR CHOICES ARE:" 




230 


PRINT 




240 


PRINT "1) TAKE A STEP" 




250 


PRINT "2) STAY WHERE YOU ARE" 




260 


IF F=0 THEN PRINT "3) TOSS A ROCK" 




270 


PRINT 




280 


PRINT "TYPE A NUMBER, " 




290 


PRINT "THEN PRESS <ENTER>. " 




300 


PRINT "WHAT IS YOUR CHOICE?" 




310 


INPUT C 




320 


IF F=l AND C>2 THEN GOTO 280 




330 


IF C<1 OR C>3 THEN PRINT "1,2 OR 3 PLEASE." 




340 


IF C<1 OR C>3 THEN GOTO 280 




350 


IF C=l THEN GOTO 700 




360 


IF C=2 THEN GOTO 1000 




370 


IF C=3 THEN GOTO 400 




400 


CLS 




410 


PRINT "TYPE THE NUMBER OF THE DIRECTION" 




420 


PRINT "YOU WANT TO THROW THE ROCK." 




430 


GOSUB 2000 




440 


LET F=l 




450 


CLS 




460 


IF XOW THEN PRINT "SPLASH" 




470 


IF X=W THEN PRINT "THUD" 




480 


LET R=R-1 




490 


IF M<1 THEN GOTO 4000 




500 


PR I NT 




510 


PRINT "PRESS (ENTER) TO CONTINUE." 




520 


INPUT R* 




530 


GOTO 140 




699 


REM *** TAKE A STEP *** 




700 


CLS 




710 


PRINT "TYPE THE NUMBER OF THE DIRECTION" 




720 


PRINT "YOU WANT TO STEP IN." 




730 


GOSUB 2000 




740 


CLS 




750 


IF WOX THEN PRINT "SPLASH" 




760 


LET 1=0 




770 


LET Z=INT <RND*3)+1 




780 


IF WOX AND Z = l THEN LET M=M-1 




790 


IF WOX AND Z=l THEN PRINT "BUT YOU PULLED YOURSELF OUT." 


800 


IF WOX AND ZOl THEN PRINT "YOU LOSE." 




810 


IF WOX AND ZOl THEN GOTO 5040 




820 


IF W=X THEN LET S=S-1 




830 


IF W=X THEN PRINT "YOU STEPED SAFELY." 




840 


IF M<1 THEN GOTO 4000 




850 


IF S<1 THEN GOTO 5000 




860 


PRINT 




870 


PRINT "PRESS (ENTER) TO CONTINUE." 




880 


LET F=0 




890 


INPUT R* 




900 


GOTO 130 




999 


REM *** THROW A ROCK *** 




1 000 


LET M=M-1 




1 1 


IF M<1 THEN GOTO 4000 
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1020 LET F=0 
1030 GOTO 140 

1999 REM »»* CHDDSE DIRECTION *** 

2000 PRINT "THEN PRESS THE (ENTER) KEY." 
2010 PRINT 

2020 PRINT "1) LEFT" 

2030 PRINT "2> RIGHT" 

2040 PRINT "3> STRAIGHT" 

2050 PRINT 

2060 PRINT "WHICH WAY?" 

2070 INPUT W 

20S0 IF W<1 OR W>3 THEN PRINT "1,2 OR 3 PLEASE." 

2090 IF W<1 OR W>3 THEN GOTO 2060 

2100 RETURN 

3999 REM *** LOSE ♦*♦ 

4000 CLS 

4010 PRINT "THE MONSTER EATS YOU AND SAYS," 
4020 PRINT "COULD USE A BIT MORE SALT." 
4030 PRINT "YOU LOSE, FOR SURE." 
4040 GOTO 5040 

4999 REM *** WIN *** 

5000 CLS 

5010 FOR T=l TO 46 

5020 PRINT " YOU MADE IT"; 

5030 NEXT T 

5040 REM *♦» END *♦♦ 

TRS-80 Color Computer 

1 REM *** THE MONSTER IN THE MARSH TRS-80 COi_GR *** 
10 S=15 



£0 M=15 




30 R-£4 




40 CLS 




50 PRINT T 


AB(9> "THE MONSTER" 


60 PRINT TAB<8> "IN THE MARSH!" 


70 J 


3RINT 




80 f 


3RINT T 


OB (4) "PRESS ANY KEY TO BE 


90 fl*=INKEY* 


100 


IF R*= 


"" THEN GOTO 90 


109 


REM *** MO IN LOOP *** 


110 


X=RND( 


3) 


1£0 


CLS 




130 


IF R<1 


THEN FL=i 


140 


PRINT 


"YOU ARE' ! S"STEP(S) " 


150 


PRINT 


"FROM THE MARSH'S END" 


160 


PRINT 




170 


PRINT 


"YOU HAVE" R" ROCK (S) " 


180 


PRINT 


"IN YOUR POCKET" 


190 


PRINT 




£00 


PRINT 


"THE MONSTER IS"M 


210 


PRINT 


"STEP(S) BEHIND YOU" 


££0 


PRINT 




£30 


PRINT 


"PRESS ANY KEY TO CONTINUE 


£40 


A*=INKEY* 


£50 


IF A*= 


'•'■ THEN GOTO £40 


£60 


CLS 




£70 


PRINT 


"YOUR CHOICES ARE:" 


£80 


PRINT 




£90 


PRINT 


"1) TAKE A STEP" 
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300 


PRINT "2) STAY WHERE YOU ARE" 




310 


IF FL=0 THEN PRINT "3) TOSS A ROCK" 




320 


PRINT 




330 


PRINT "TYPE A NUMBER" 




340 


PRINT "THEN PRESS (ENTER)" 




350 


PRINT "WHAT IS YOUR CHOICE"; 




360 


INPUT CH 




370 


IF FL=1 AND CH>2 THEN 330 




380 


IF CH<1 OR CH>3 THEN GOTO 260 




390 


ON CH GOTO 700,1000,400 




399 


REM *** CHUCK THE ROCK *** 




400 


CLS 




410 


PRINT "TYPE THE NUMBER" 




420 


PRINT "OF THE DIRECTION" 




430 


PRINT "YOU WANT TO" 




440 


PRINT "THROW THE ROCK" 




450 


PRINT 




460 


GOSUB 2000 




470 


FL=1 




460 


CLS 




490 


IF XOW THEN PRINT "SPLASH!" 




500 


IF X=W THEN PRINT "THUD" 




510 


R=R-1 




520 


IF M<1 THEN 4030 




530 


PRINT 




540 


PRINT "PRESS ANY KEY TO CONTINUE" 




550 


A*=INKEY* 




560 


IF A*="" THEN 550 




570 


GOTO 120 




699 


REM *** TAKE A STEP ROUTINE *** 




700 


CLS 




710 


PRINT "PRESS THE NUMBER" 




720 


PRINT "OF THE DIRECTION" 




730 


PRINT "YOU WANT TO STEP IN, ": PRINT 




740 


GOSUB 2000 




750 


CLS:Z=RND(4) 




760 


IF WOX THEN PRINT "SPLASH YOU'RE SINKING!" 




780 


IF WOX AND Z=l THEN M=M-1: PRINT "BUT, YOU PULL YOURSELF OUT!" 


790 


IF WOX AND ZOl THEN PRINT "YOU LOSE!" : END 




800 


IF W=X THEN S=S-1: PRINT "YOU STEPPED SAFELY!" 




810 


IF M<1 THEN 4000 




820 


IF S<1 THEN 5000 




830 


PRINT 




840 


FL=i3 




850 


PRINT "PRESS ANY KEY TO CONTINUE" 




860 


A*=INKEY* 




870 


IF A*="" THEN 860 




880 


GOTO 110 




999 


REM *** STAY WHERE YOU ARE *** 




1000 M=M-1 




1010 IF M<1 THEN 4000 




1020 FL=0 




1030 GOTO 110 




2000 PRINT "THEN PRESS" 




2010 PRINT "THE (ENTER) KEY. " 




2020 PRINT 




2030 PRINT "1) LEFT" 




2040 PRINT "£) RIGHT" 




2050 PRINT "3> STRAIGHT AHEAD" 
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£060 PRINT 

£070 PRINT "WHICH WAY"; 

£080 INPUT W 

£090 IF W<1 OR W>3 THEN PRINT "1,£ OR 3 PLEASE ! " :G0T0 £070 

£100 RETURN 

3999 REM *** SORRY CHARLIE *** 

4000 CLS 

4010 PRINT "THE MONSTER EATS YOU AND SAYS, " 
40£0 PRINT "'COULD USE A BIT MORE SALT!" 
4030 PRINT "YOU LOSE, FOR SURE. " :END 

4999 REM »»» YOU' RE IN LUCK »** 

5000 CLS 

5010 FOR T=l TO £00 

50£0 PRINT" YOU MADE IT!!! " ; 

5030 NEXT T 

5040 END 

TRS-80 Model III and Model 4 

1 REM *** THE MONSTER IN THE MARSH TRS-80 MODELS 3 AND 4 *** 

10 S=15 

20 M=15 

30 R=24 

40 CLS 

50 PRINT TAB (32) "THE MONSTER" 

60 PRINT TAB (31) "IN THE MARSH!" 

70 PRINT 

SO PRINT TAB (26) "PRESS ANY KEY TO BEGIN" 

90 A*=INKEY* 

100 IF A*="" THEN GOTO 90 

109 REM *** MAIN LOOP *** 

110 X=RND(3) 
120 CLS 

130 IF R<1 THEN FL=1 

140 PRINT "YOU ARE"S"STEP(S) " 

150 PRINT "FROM THE MARSH'S END" 

160 PRINT 

170 PRINT "YOU HAVE " R" ROCK (S) " 

180 PRINT "IN YOUR POCKET" 

190 PRINT 

200 PRINT "THE MONSTER IS"M 

210 PRINT "STEP(S) BEHIND YOU" 

220 PRINT 

230 PRINT "PRESS ANY KEY TO CONTINUE" 

240 A*=INKEY* 

250 IF A*="" THEN GOTO 240 

260 CLS 

270 PRINT "YOUR CHOICES ARE:" 

280 PRINT 

290 PRINT "1) TAKE A STEP" 

300 PRINT "2) STAY WHERE YOU ARE" 

310 IF FL=0 THEN PRINT "3) TOSS A ROCK" 

320 PRINT 

330 PRINT "TYPE A NUMBER" 

340 PRINT "THEN PRESS (ENTER) 

350 PRINT "WHAT IS YOUR CHOICE" 

360 INPUT CH 

370 IF FL=1 AND CH>2 THEN 330 

380 IF CH<1 OR CH>3 THEN 260 

390 ON CH GOTO 580,770,400 
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400 CLS 




410 PRINT "TYPE THE NUMBER" 




420 PRINT "OF THE DIRECTION" 




430 PRINT "YOU WANT TO" 




440 PRINT "THROW THE ROCK" 




450 PRINT 




460 GOSUB 810 




470 FL=1 




480 CLS 




490 IF XOW THEN PRINT "SPLASH!" 




500 IF X=W THEN PRINT "THUD" 




510 R=R-1 




520 IF M<1 THEN 920 




530 PRINT 




540 PRINT "PRESS ANY KEY TO CONTINUE" 




550 A*=INKEY* 




560 IF A$="" THEN 550 




570 GOTO 120 




579 REM *** TAKE A STEP ROUTINE *** 




580 CLS 




590 PRINT "PRESS THE NUMBER" 




600 PRINT "OF THE DIRECTION" 




610 PRINT "YOU WANT TO STEP IN,": PRINT 




620 GOSUB 810 




630 CLS 




640 Z=RND(4) 




650 IF WOX THEN PRINT "SPLASH YOU'RE SINKING!" 




660 IF WOX AND Z=l THEN M=M-l:PRINT "BUT, YOU PULL YOURSELF OUT! 


II 


670 IF WOX AND ZOl THEN PRINT "YOU LOSE !": END 




680 IF W=X THEN S=S-1: PRINT "YOU STEPPED SAFELY!" 




690 IF M<1 THEN 920 




700 IF S<1 THEN 960 




710 PRINT 




720 FL=0 




730 PRINT "PRESS ANY KEY TO CONTINUE" 




740 A*=INKEY* 




750 IF A$=:"" THEN 740 




760 GOTO 110 




769 REM *** STAY WHERE YOU ARE *** 




770 M=M~1 




780 IF M<1 THEN 920 




790 FL=0 




800 GOTO 110 




810 PRINT "THEN PRESS" 




820 PRINT "THE (ENTER) KEY. " 




830 PRINT 




840 PRINT "1) LEFT" 




850 PRINT "2) RIGHT" 




860 PRINT "3) STRAIGHT AHEAD" 




870 PRINT 




880 PRINT "WHICH WAY" 




890 INPUT W 




900 IF W<1 OR W>3 THEN PRINT "1,2 OR 3 PLEASE !": GOTO 880 




910 RETURN 




919 REM *** SORRY CHARLIE *** 




920 CLS 




930 PRINT "THE MONSTER EATS YOU AND SAYS," 




940 PRINT "'COULD USE A BIT MORE SALT!" 




950 PRINT "YOU LOSE, FOR SURE.": END 





110 







10 AWESOME PROGRAMS FROM K-POWER 


959 


REM **♦ YOU'RE IN LUCK *** 




960 


CLS 




970 


FOR T=l TO 200 




980 


PRINT " YOU MADE IT! ! ! " ; 




990 


NEXT T 




1000 END 




VIC-20 




1 REM *** THE MONSTER IN THE MARSH VIC-£0 *** 


10 S=15 




£0 M=15 




30 R=£4 




40 PRINT CHR*(147) 




50 PRINT TAB(5)"THE MONSTER" 




60 PRINT TAB (4) "IN THE MARSH" 




70 PRINT 




80 PRINT "PRESS (SHIFT) TO BEGIN" 




90 GOSUB 3000 




99 REM *** MAIN LOOP *** 




100 


X=INT(RND(l)-*3)+l 




110 


PRINT CHR*(147> 




1£0 


IF R<1 THEN FL=1 




130 


PRINT "YOU ARE"S"STEP(S) " 




140 


PRINT "FROM THE MARSH'S END" 




150 


PRINT 




160 


PRINT "YOU HAVE" R" ROCK (S) " 




170 


PRINT "IN YOUR POCKET" 




180 


PRINT 




190 


PRINT "THE MONSTER IS"M 




£00 


PRINT "STEP(S) BEHIND YOU" 




£10 


PRINT 




££0 


PRINT "YOUR CHOICES ARE:" 




£30 


PRINT 




£40 


PRINT "1) TAKE A STEP" 




£50 


PRINT "£) STAY WHERE YOU ARE" 




£60 


IF FL=0 THEN PRINT"3) TOSS A ROCK" 




£70 


PRINT 




£80 


PRINT "TYPE A NUMBER" 




£90 


PRINT "THEN PRESS (RETURN)" 




300 


INPUT "WHAT IS YOUR CHOICE" : CH 




310 


IF FL=1 AND CH>£ THEN £80 




3£0 


IF CH<1 OR CH>3 THEN PRINT:SOTO ££0 




33tS 


ON CH GOTO 700,1000,340 




339 


REM *** TOSS A ROCK ROUTINE *** 




340 


PRINT CHR*(i47) 




350 


PRINT "TYPE THE NUMBER" 




360 


PRINT "OF THE DIRECTION" 




370 


PRINT "YOU WANT TO" 




380 


PRINT "TOSS THE ROCK, " 




390 


PRINT 




400 


GOSUB £000 




410 


F;_=l 




4£0 


PRINT CHR*(147) 




430 


IF XOW THEN PRINT "SPLASH!" 




440 


IF X=W THEN PRINT "THUD!" 




450 


R=R-1 




460 


IF M<1 THEN 4000 




470 


PRINT 




480 


PRINT "PRESS (SHIFT)" 
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490 PRINT "TO CONTINUE. " 
5012 GOSUB 3000 
510 GOTO 110 

699 REM *** TAKE A STEP ROUTINE *** 

700 PRINT CHR*(147) 

710 PRINT "PRESS THE NUMBER" 

720 PRINT "OF THE DIRECTION" 

730 PRINT "YOU WANT TO STEP IN," 

740 GOSUB £000 

750 PRINT CHR$<147) 

760 IF WOX THEN PRINT "SPLASH YOU'RE SINKING!" 

780 IF WOX AND Z = i THEN M=M-1: PRINT "BUT, YOU PULL YOURSELF OUT 

790 IF WOX AND ZOl THEN PRINT "YOU LOSE!" : END 

600 IF W=X THEN S=S-1 : PRINT "YOU STEPPED SAFELY!" 

810 

820 

830 

840 

850 

360 

870 

690 

9SS 

1000 
1010 
10£0 
1030 

1939 

£000 
£010 

£0£0 
£030 
£040 
£050 
£060 
£070 
£080 
£090 

£100 

£999 
3000 

3010 

30£0 
3999 

4000 
4010 

40£0 
4030 
4999 

5000 

5010 
5S£0 
5030 



IF M<1 THEN 4000 




IF S<1 THEN 5000 




PRINT 




PRINT "PRESS (SHIFT)" 




PRINT "TO CONTINUE. " 




FL=0 




GOSUB 3000 




GOTO 100 




REM *#* STAY WHERE YOU ARE **■* 




M=M-1 




IF M<1 THEN 4000 




FL-0 




GOTO 100 




REM *** CHOOSE DIRECTION *** 




PRINT "THEN PRESS" 




PRINT "THE (RETURN) KEY. " 




PRINT 




PRINT "I) LEFT" 




PRINT "£) RIGHT" 




PRINT "3) STRAIGHT AHEAD" 




PRINT 




INPUT ,: WHICH WAY" ;W 




IF W<1 OR W>3 THEN PRINT: GOTO £070 




Z=INT(RND<l)*4)+i 




RETURN 




REM #** WAIT ROUTINE *** 




WAIT 653, 1 




WAIT 653, I, 1 




RETURN 




REM *■** LOSE *** 




PRINT CHR*( 147) 




PRINT ;i THE MONSTER EATS YOU AND SAY 


5 


PRINT "'COULD USE A BIT MORE SAl_T ! ! :! 




PRINT "YDU LOSE, FOR SURE. ":END 




REM *** WIN *** 




PRINT CHR*(I47) . 




FOR T=l TO £00 




PRINT " YDU MADE IT : ! ! '■ ; 




NEXT 7 
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BONUS PROGRAM #8 




TEAM BATTING AVERAGE 




The? TEAM BATTING AVERAGE program can keep track ■■:. 


f your 


baseball team's batting average. The program wil 


1 ask for 


each team member's name, total at bats, walks, ar 


d 


s a c r i f i ■::: es, a n d t o t a .'!. ft. its. LJ s i n q t h ess tig la r e s , 


t h e 


computer will display each team member's batting 


average , 


and trie team average. The program also cam. be us 


ed to 


follow the averages of your -favorite professional 


pi ayers 


and teams each day of the season , 




ADAM 




1 REM *** TEAM BATTING AVERAGE ADAM *** 




10 HOME 




20 PRINT "TEAM BATTING AVERAGE PROGRAM" 




30 PRINT 




40 PRINT "Press (RETURN) after each reply." 




50 PRINT 




60 INPUT "How many players: "; p 




79 REM *** dimension arrays *** 




30 DIM p$(p), ab(p), ws(p), h(p) 




89 REM *** input variables *** 




90 HOME 




100 PRINT "Please answer the questions." 




110 PRINT "Press (RETURN) after each reply." 




1 20 PRINT 




130 FOR t = 1 TO p 




140 PRINT "What is player #"; t; "' s name" 




150 INPUT p$(t) 




160 PRINT "What were "; p$(t); " ' s total at bats" 




170 INPUT ab(t) 




180 PRINT "How many walks and sacrifices" 




190 INPUT ws(t) 




200 PRINT "How many hits" 




210 INPUT h(t) 




220 IP h(t)+ws(t) > ab(t) THEN PRINT "Number too 


high": GOTO 160 


230 HOME 




240 NEXT t 




250 PRINT "AVERAGE", "PLAYER" 




260 PRINT 




269 REM *** figure averages *** 




270 FOR t = 1 TO p 




280 b = h(t)/(ab(t)-ws(t)) 




289 REM *** round off to three digits *** 




290 a = INT(b*1000+.5)/lOO 




300 ta = ta+ab(t) 




310 th = th+h(t) 




320 tw = tw+ws(t) 




329 REM *** print averages *** 




330 PRINT a, p$(t) 




340 NEXT t 




350 PRINT 




360 tv = th/(ta-tw) 
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370 PRINT "TEAM AVERAGE="; INT( tv*1000+.5) /1 000 

380 PRINT 

390 PRINT "Press any key to run again." 

400 GET n$ 

410 RUN 

Apple II and Apple lie 

1 REM *** TEAM BATTING AVERAGE APPLE *** 

10 HOME 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 

30 PRINT 

40 PRINT "PRESS (RETURN) AFTER EACH REPLY. " 

50 PRINT 

60 INPUT "HOW MANY PLAYERS: " ; P 

79 REM *** DIMENSION ARRAYS *** 

80 DIM P* ( P ) , AB ( P ) , WS ( P ) „ H < P ) 

89 REM •*•** INPUT VARIABLES *** 

90 HOME 

100 PRINT "PLEASE ANSWER THE QUESTIONS." 

110 PRINT "PRESS (RETURN) AFTER EACH REPLY." 

120 PRINT 

130 FOR T = 1 TO P 

140 PRINT "WHAT IS PLAYER #"T"'S NAME" 

150 INPUT Pt(T) 

160 PRINT "WHAT WERE "P*(T)"'S TOTAL AT BATS" 

170 INPUT AB(T) 

180 PRINT "HOW MANY WALKS AND SACRIFICES" 

190 INPUT WS(T) 

200 PRINT "HOW MANY HITS" 

210 INPUT H(T) 

220 IF H<T) + WS<T) > AB(T) THEN PRINT "NUMBER TOO HIGH": GOTO 160 

230 HOME 

240 NEXT T 

250 PRINT "AVERAGE" , "PLAYER" 

260 PRINT 

269 REM *•*•* FIGURE AVERAGES ***• 

270 FOR T = .1. TO P 

280 B ---■: H(T) / (ABCT) - WS(T>) 

209 REM *** ROUND OFF TO THREE DIGITS *** 

290 A == INT (B * 1000 + .5) / 1000 

300 TA = TA + AB < T ) 

310 TH == TH + H(T) 

320 TW -•=' TW + WS(T) 

329 REM *•** PRINT AVERAGES *** 

330 PRINT A,P*(T) 
340 NEXT T 

350 PRINT 

360 TV = TH / (TA - TW) 

370 PRINT "TEAM AVERAGE^" INT (TV * 1000 ■+• .5) / 1000 

380 PR I NT 

390 PRINT "PRESS ANY KEY TO RUN AGAIN. " 

400 GET N* 

4 1 O RUN 

Atari 

i f < E M ■*".• * * i" E. nM B A T T .(. N G A V E R A G E ATARI * * * 

10 PRINT CHR* i 125) 

20 PR I Ml' " ! EAM BATTING AVERAGE PROGRAM" 

30 PRINT 
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40 PRINT "PRESS (RETURN) AFTER EACH REPLY. " 






SO PRINT 






60 PRINT "HON MANY PLAYERS"; 






70 INPUT P 






79 REM *** DIMENSION ARRAYS ■**«• 






80 D I M P* ( 1 200 ) , AB ( P ) , WS ( P ) , H ( P ) , TEMP* ( 20 ) , R* ( 1 ) „ S < 4 


■00) 




89 REM *** INPUT VARIABLES *** 






90 PRINT CHR*(125> 






100 PRINT "PRESS (RETURN) AFTER EACH REPLY" 






110 PRINT 






120 FOR r=i TO P 






130 S( 'n==LEIM<P-*> +1 






140 PRINT "WHAT S THE NAME OF" 






3.50 PRINT "PLAYER #";]": 






155 P*(S( 1") )- TEMP* 






160 INPUT TEMP* 






170 P*<S( T) ) ~- IEMP* 






180 PRINT 






190 PRINT "WHAT WERE ";TEMP$;"'S" 






,:U(J PRINT "TOTAL AT BATS"; 






210 INPUT D 






220 AB(T)-D 






230 PRINT 






240 PRINT "HOW MANY WALKS" 






250 PRINT "AND SACRIFICES"; 






260 INPUT D 






270 WS(T)-D 






280 PRINT 






290 PRINT "HOW MANY HIT'S"; 






300 INPUT D 






310 HL! )~D 






320 IF WS ( T) +H ( T > >AB (T ) THEN PRINT s PRINT "NUMBER TC 


1 HIGH 


, _ G q T0 230 


330 PR] NT CHR* ( 125; 






340 NEXT 1" 






350 srr :■ ==LEN<P$) h 1 






560 PRINT "AVERAGE. ", "PLAYER" 






'.5/0 PRINT 






3 79 RE! V ! *■** FIGURE AVERAGES **•* 






3RO )•-' I iR T-1 'JO P 






390 B~\\ < \ > -■■' ', f iB ( T ) -WS ( '!" ) > 






.599 REM •*** ROUND OFF !0 THREE DIGITS **•* 






400 A= 1 N ! ( B* 1 uOO-i-O -'■!>' 1 000 






41.0 T A^ !' Ai-AB ■'. T ) 






420 IH-TH+H ( '! ) 






430 '! W-TW+WS ( '! > 






440 PR 1 N I A , PT ( S ( T ) »S( '! -i- 1 ) 1 ) 






4 49 REM *** PRIN'I AVERAGES •**•* 






450 NE.xT T 






460 PRINT 






4/0 "!"V~0"H/ ( !v-i TW) 






480 PR 1 N !' " T EAM AVERAGE- " ; I N T ( TV* 1 000 + „ 5 > / 1 000 






49 u PR IN'! 






5o0 PRINT "PRESS (RETURN) !' RUN mGAIN" 






510 IN PL!'! R* 






520 R!JM 






Commodore 64 






1 REM *♦♦ TERM BATTING AVERAGE 64 *** 






10 PRINT CHR*(147) 






£0 PRINT "TEAM BATTING AVERAGE PROGRAM" 
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30 


PRINT 




40 


PRINT "PRESS (RETURN) AFTER EACH REPLY." 




50 


PRINT 




60 


PRINT "HOW MANY PLAYERS"; 




70 


INPUT P 




79 


REM *** DIMENSION ARRAYS *** 




80 


DIM P*(P), AB(P), WS(P),H(P) 




89 


REM *** INPUT VARIABLES *** 




90 


PRINT CHR*<147) 




100 


PRINT "PLEASE ANSWER THE QUESTIONS." 




110 


PRINT "PRESS (RETURN) AFTER EACH REPLY." 




1£0 


PRINT 




130 


FOR T=l TO P 




140 


PRINT "WHAT IS PLAYER #"T"'S NAME" 




150 


INPUT P*(T) 




160 


PRINT "WHAT WERE "P*(T)"'S TOTAL AT BATS" 




170 


INPUT AB(T) 




180 


PRINT "HOW MANY WALKS AND SACRIFICES" 




190 


INPUT WS(T) 




£00 


PRINT "HOW MANY HITS" 




£10 


INPUT H(T) 




££0 


IF H(T)+WS(T)>AB(T) THEN PRINT"NUMBER TOO HIGH":GOTO 


160 


£30 


PRINT CHR*(147) 




£40 


NEXT T 




£50 


PRINT "AVERAGE", "PLAYER" 




£60 


PRINT 




£69 


REM *** FIGURE AVERAGES *** 




£70 


FOR T=l TO P 




£80 


B=H(T)/(AB(T)-WS(T)) 




£89 


REM *** ROUND OFF TO THREE DIGITS *** 




£90 


A=INT (B*1000+. 5) /1000 




300 


TA=TA+AB(T) 




310 


TH=TH+H(T) 




3£0 


TW=TW+WS(T) 




3£9 


REM *** PRINT AVERAGES *** 




330 


PRINT A, P*(T) 




340 


NEXT T 




350 


PRINT 




360 


TV=TH/(Tfl-TW) 




370 


PRINT "TEAM AVERAGE=" INT (TV*1000+. 5) /1000 




380 


PRINT 




390 


PRINT "PRESS (SHIFT) TO RUN AGAIN." 




399 


REM *** WAIT ROUTINE *** 




400 


WAIT 653, 1 




410 


WAIT 653, 1, 1 




4£0 


RUN 




IBM PC 




1 REM *** TEAM BATTING AVERAGE IBM-PC *•** 




10 


CLS 




20 


PRINT "TEAM BATTING AVERAGE PROGRAM" 




30 


PRINT 




40 


PRINT "PRESS (ENTER) AFTER EACH REPLY." 




50 


PRINT 




60 


PRINT "HOW MANY PLAYERS"; 




70 


INPUT P 




79 


REM *** DIMENSION ARRAYS *** 




80 


DIM P*(P) ,AB(P> ,WS(P) ,H(P) 




89 


REM *•** INPUT VARIABLES *** 
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90 CLS 




100 


PRINT "PRESS (ENTER) AFTER EACH REPLY. " 




110 


PRINT 




120 


FOR T=l TO P 




130 


PRINT "WHAT IS THE NAME OF" 




140 


PRINT "PLAYER #";T; 




150 


INPUT P*(T> 




160 


PRINT 




170 


PRINT "WHAT WERE " ; R* (T) : " ' S" 




180 


PRINT "TOTAL AT BATS"; 




190 


INPUT AB(T) 




200 


PRINT 




210 


PRINT "HOW MANY WALKS" 




220 


PRINT "AND SACRIFICES": 




230 


INPUT WS(T> 




240 


PRINT 




250 


PRINT "HOW MANY HITS": 




260 


INPUT H(T) 




270 


IF H(T)+WS(T) >AB(T> THEN PRINT "NUMBER TOO HIGH" 


:GOTO 170 


280 


CLS 




290 


NEXT T 




300 


PR I NT " AVERAGE " , " PLAYERS " 




310 


PRINT 




319 


REM *** FIGURE AVERAGES *** 




320 


FOR T=l TO P 




330 


B=H(T> / (AB(T)--WS(T) ) 




340 


A=INT(B*1000+.5) /I 000 




350 


TA=TA+AB<T) 




360 


TH=TH+H(T> 




370 


TW=TW+WS(T) 




379 


REM *** PRINT AVERAGES *** 




380 


PRINT A.P*(T> 




390 


NEXT T 




400 


PRINT 




410 


TV=TH/ (TA-TW) 




420 


PR I NT " TEAM A VERAGE= " ; I NT ( TV* 1 000+ . 5 ) / 1 000 




430 


PRINT 




440 


PRINT "PRESS (ENTER) TO RUN AGAIN" 




449 


REM *** WAIT ROUTINE *** 




450 


INPUT Rf 




460 


RUN 




T1-99/4A 




J. R 
1 


!-M +:■*•* | EAM BfsfEENG AVERAGE 1199/40 •**# 

:::all ci...eaf: 




:<::0 


:; 'R.m ! "(RAM BAMONG AVERAGE PROGRAM" 




30 
40 


-■RIM"! 

"■R.i:N!' " PRE9S (ENiER) AFTER FRPH FORI Y„ " 




50 
60 


::, RIN"f 

■■■'RINT "HOW r-lfiNY PLnvERb"; 






I MRU! R 

VET! ■**•* OiriENSIij! 1 ARRr-vS **•* 




8 

'•■■/' i") 


J I M Ft- •■. 50 » , AB < 30 '.> < I'iS ( 3'j ) „ H '. 30 ) 




100 

1 1 1 ' 


PR .1. !'•■!! "Pi. I~f Of.. AIISRER I HP O 1 IE S'l' I UNO .. " 

i '■' t:,' 1 I' I .' 




j .i. ... 

J. .20 

1 5C> 


i i .1. t ! i 

P R !' r •! 1 " P R E S S ( E 1 ! 1 ' E. R > A F : "!" E R E A C H R E. P ! .. V „ ' ' 

OQ T }.. j'i 




139 


I i ^ .1. 1 ■! 1 

RE li *+:■■& J. IIP! .1 !'" '■:>(■ \R C ABL ES ■**■#■ 
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140 FOR T=l TO P 

150 PRINT "WHAT IS NAME OF" 

160 PRINT "PLAYER #";T; 

I/O INPUT P*(i) 

ISO PRINT 

1 90 PR I N I " WH A T WERE " ; P* < T ) ; " ' S " 

200 PRINT "TOTAL AT BATS"; 

210 INPUT ABLI > 

220 PRINT 

230 PRINT "HOW MANY WALKS" 

240 PRINT "AND SACRIFICES"; 

250 INPUT user* 

260 PRINT 

2 70 PRINT "HOW MANY HI IS"; 
280 INPUT t-KI; 

290 IF H ( I > + WS \ I .) :>AB ( TO THEN 300 ELSE 330 

300 PR IN I' 

310 PRINT "NUMBER TO HIGH" 

320 GOTO 220 

330 CALL CLEAR 

340 NEXT T 

350 CALL... CLEAR 

360 PR I N T " PI....A r ER " , " AVERAGE . " 

3 70 PRINT 

3 79 REM ■»■** FIGURE AVERAGES *** 
380 FOR T-:l TO P 

390 B"- : H (IKMABAJ -I' IS < T ) ) 

399 REM **•* ROUND OFF TO THREE DIGITS *** 

'TOO A" 1 N T <■. B* 1 000 + „ 5 > / 1 OOO 

410 "TA-FA + AB ( "f ) 

420 TFN IHHU I > 

430 TW=TW+WS(T > 

439 REM *■** PRINT AVERAGES *** 

440 PRINT F'* i ! > „ A 
4 5 'j NEX '! ! 

460 PR I i .1 T 

4 70 I v'-TH/ ' I" A- l"W> 

480 PR 1 N I " TEAM AVERAGE- " ; 1 NT ( TV-* 1. 000+ . 5 > / 1 000 

490 PRINT 

500 PRINT "PRESS (ENTER) TO RUN REVERSE" 

510 INPUT E* 

520 GOTO 10 

Timex 1000 w/16K RAM Pack and Timex 1500 

1 REM *** TEAM BATTING AVERAGE TIMEX *** 

10 CLS 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 

30 PRINT 

40 PRINT "PRESS (ENTER) AFTER EACH REPLY." 

50 PRINT 

60 PRINT "HOW MANY PLAYERS?"; 

70 INPUT P 

79 REM *** DIMENSION ARRAYS *** 

80 DIM P*(P, 15) 
90 DIM B(P) 

100 DIM W(P) 

110 DIM H(P) 

119 REM *** INPUT VARIABLES *** 

120 CLS 
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130 

140 

150 

160 

1 70 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2S0 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

399 

400 

410 

419 

420 

430 

440 

450 

459 

460 

470 

480 

490 

500 

510 

520 

530 

540 



PRINT "PLEASE ANSWER THE QUESTIONS." 

PRINT "PRESS (ENTER) AFTER EACH REPLY. 

PRINT 

FOR T=l TO P 



PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 



"WHAT IS THE NAME OF" 
"PLAYER NUMBER ";T;"?" 
P*(T) 

"WHAT WERE THE TOTAL" 
"AT BATS FOR ";P*(T) ; "' 
B(T) 



"HOW 
W(T) 



MANY WALKS AND SACRIFICES? 



"HOW MANY HITS? 

H(T) 
IF H(T)+W(T) >B(T) 
CLS 

NEXT T 

PRINT "AVERAGE", "PLAYER 
PRINT 



THEN GOTO 240 



LET 
LET 
LET 
LET 
LET 
REM 
FOR 
LET 
REM 
LET 
LET 
LET 
LET 
REM 



0=0 

Y=0 

U=0 

V=0 

A=0 

*** FIGURE AVERAGES *** 

T=l TO P 

G=H(T)/(B(T)-W(T) ) 

*** ROUND OFF TO THREE DIGITS *** 

A= I NT ( G* 1 000+ . 5 ) / 1 000 

Q=Q+B(T) 



Y=Y+H(T) 

U=U+W(T) 

*** PRINT AVERAGES *** 
PRINT A,P*(T) 
NEXT T 
PRINT 

LET V=Y/ (Q-U) 
PRINT "TEAM AVERAGE= 
PRINT 
PRINT 
INPUT 
RUN 



I NT < V* 1 000+ . 5 ) / 1 000 



"PRESS 
C* 



(ENTER) TO RUN AGAIN. 



TRS-80 Color Computer 

1 REM *** TEAM BATTING AVERAGE TRS-CO^GR *** 

10 CLS 

£0 PRINT ,: 7EAM BATTING AVERAGE PROGRAM 

30 PRINT 

40 PRINT "PRESS (ENTER) 'PiFTER EACH REPt-Y. ,} 

50 PRINT 

£0 PRINT "HOw MANY PLAYERS"; 

70 INPUT P 

79 REM *** DIMENSION ARRAYS *** 

80 DIM P*(P), AB(P), WS(P),H(P) 

89 REM *** INPUT VARIABLES *** 

90 CLS 
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100 


PRINT "PRESS (ENTER) AFTER EACH REPLY." 








110 


PRINT 








1£0 


FOR T=l TO P 








130 


PRINT "WHAT IS THE NAME OF" 








140 


PRINT "PLAYER #";T; 








150 


INPUT P*(T) 








160 


PRINT 








170 


PRINT "WHAT WERE ";P*(T);"'S" 








160 


PRINT "TOTAL AT BATS"; 








190 


INPUT AB(T) 








£00 


PRINT 








£10 


PRINT "HOW MANY WALKS" 








££0 


PRINT "AND SACRIFICES"; 








£30 


INPUT WS(T) 








£40 


PRINT 








£50 


PRINT "HOW MANY HITS": 








£60 


INPUT H(T) 








£70 


IF H(T)+WS(T)>AB(T) THEN PRINT "NUMBER TOO 


HIGH" 


:GOTO 


17i3 


£80 


CLS 








£90 


NEXT T 








300 


PRINT "AVERAGE", "PLAYERS" 








310 


PRINT 








319 


REM *** FIGURE AVERAGES *** 








3£0 


FOR T = 1 TO P 








330 


B=H(T)/(AB(T)-WS(T) ) 








339 


REM *** ROUND OFF TO THREE DIGITS *** 








340 


A=INT(B*1000+. 5) /1000 








350 


TA=TAfAB(T) 








360 


TH=TH+H(T) 








370 


TW=TW+WS(T) 








379 


REM *** PRINT AVERAGES *** 








380 


PRINT A, P$(T) 








390 


NEXT T 








400 


PRINT 








410 


TV=TH/(TA-TW) 








4£0 


PRINT "TEAM AVERASE=" ; INT <7V*i000+. 5) / IMw 








430 


PRINT 








440 


PRINT "PRESS (ENTER) TO RUN AGAIN" 








449 


REM *** WAIT ROUTINE *** 








450 


INPUT R$ 








460 


RUN 








1KS-80 Model III and Model 4 








1 REM *** TEAM BATTING AVERAGE TRS-80 MODELS 3 


AND 4 


•*•*♦ 




10 CLS 








20 PRINT "TEAM BATTING AVERAGE PROGRAM" 








30 PRINT 








40 PRINT "PRESS (ENTER) AFTER EACH REPLY." 








50 PRINT 








60 PRINT "HOW MANY PLAYERS"; 








70 


[NPUT P 








79 REM *** DIMENSION ARRAYS *** 








80 DIM P*(P) , AB(P) ,WS(P) ,H(P) 








89 REM *** INPUT VARIABLES *** 








90 CLS 








100 


PRINT "PRESS (ENTER) AFTER EACH REPLY." 








110 


PRINT 








120 


FOR T=l TO P 








1 30 


PRINT "WHAT IS THE NAME OF PLAYER #";T; 
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150 INPUT P*(T) 

160 PRINT 

170 PRINT "WHAT WERE ";P*(T);'"S TOTAL AT BATS"; 

190 INPUT AB(T) 

200 PRINT 

210 PRINT "HOW MANY WALKS AND SACRIFICES"; 

230 INPUT WS(T) 

240 PRINT 

250 PRINT "HOW MANY HITS"; 

260 INPUT H(T) 

270 IF H(T)+WS(T) >AB(T) THEN PRINT "NUMBER TOO HIGH": GOTO 170 

280 CLS 

290 NEXT T 

300 PRINT "AVERAGE", "PLAYER" 

310 PRINT 

319 REM *** FIGURE AVERAGES **** 

320 FOR T=l TO P 

330 B=H(T) /(AB(T)-WS(T) ) 

339 REM *** ROUND OFF TO THREE PLACES *** 

340 A= I NT ( B * 1 000+ . 5 ) / 1 000 
350 TA=TA+AB(T) 

360 TH=TH+H(T) 
370 TW=TW+WS(T) 

379 REM *** PRINT AVERAGES *** 

380 PRINT A,P*(T) 
390 NEXT T 

400 PRINT 

410 TV=TH/(TA-TW) 

420 PRINT "TEAM AVERAGE=" 5 INT (TV*1000+. 5) / 1000 

430 PRINT 

440 PRINT "PRESS (ENTER) TO RUN AGAIN"; 

449 REM *** WAIT ROUTINE *** 

450 INPUT R* 
460 RUN 



VIC-20 

1 REM *** 

Id PRIM 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
REM ** 
DIM P* 
RE.*i **■ 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FOR T 
PRINT 
PRINT 
INPUT 
PRINT 



30 
4121 

60 
78 
80 

as 

90 
99 

100 

ilia 

i£0 
:30 
140 
150 
160 
170 
180 
190 

£00 



EAM BATTING AVG. VIC-20 *** 
CHR*(147> 
"TEAM BATTING" 
"AVERAGE PROGRAM" 

"PRESS (RETURN) AFTER 'EACH REPLY. 

"HOW MANY PLAYERS"; 
P 

* DIMENSION ARRAYS *** 
(P>, AB(P>, WS(P),H(P) 

* INPUT VARIABl.ES *** 
ChR*(147) 

"PLEASE ANSWER" 
"THE QUESTION" 

"PRESS (RETURN) AFTER EACH REPLY. 

= 1 TO P 

"WHAT' S THE NAME OF" 
"PLAYER #"T 
P*(T) 
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£10 


PRINT"WHAT WERE "P*(T)"'S" 


££0 


PRINT"TOTAL AT BATS" 


£30 


INPUT AB(T) 


£40 


PRINT 


£50 


PRINT "HOW MANY WALKS" 


£60 


PRINT "AND SACRIFICES" 


£70 


INPUT WS(T) 


£80 


PRINT 


£90 


PRINT "HOW MANY HITS" 


300 


INPUT H(T) 


310 


IF H(T)+WS(T)>AB(T) THEN PR 


3£0 


PRINT CHR*(147) 


330 


NEXT T 


340 


PRINT "AVERAGE PLAYER" 


350 


PRINT 


359 


REM *** FIGURE AVERAGES *** 


360 


FOR T=i TO P 


370 


B=H(T)/ (AB(T)-WS(T)) 


379 


REM *** ROUND OFF TO THREE 


380 


A=INT(B*1000+. 5) /1000 


390 


TA=TA+AB(T) 


400 


TH-TH+H(T) 


410 


TW=Tw+WS(T> 


419 


REM *** PRINT AVERAGES *** 


4£0 


PRINT A, P*(T) 


430 


NEXT T 


440 


PRINT 


45© 


TV=TH/ (TA-TW) 


460 


?RI.\T "TEAM AVERAGE="INT(TV 


470 


PRINT 


480 


PRINT ,! PRESS (SHIFT) TO" 


490 


PRINT"TG RUN AGAIN. " 


A-99 


REM *** WAIT ROUTINE *** 


500 


WAIT 653, 1 


510 


WAIT 653, i, 1 


5£0 


RUN 



PRINT"NUMBER TOO HIGH" :GOTO £10 



DIGITS *** 



V*1000+. 5)/1000 
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BONUS PROGRAM #9 

THE DRAWING PROGRAM 

The sky is the limit when using THE: DRAWING PROGRAM- 
Drawing on the? computer is as easy as pushing the 
joystick, or pressing direction keys. On some computers 
you cart change character, colors, or backgrounds, To mat 
these choices, press the key printed next to your choice 



on the screen.. 



ase jy 



arau; irit 



in the co 1 o i" 



background 



You'll be surprised at the pictures you can 



m a k e ., w i t h a 1 i 1 1 1 e p r a c t i c e a n d p a t i e n c e „ 



ADAM 

1 

10 
99 
100 
1 10 
120 
130 
HO 
150 
160 
170 
199 
200 
210 
220 
230 
240 
250 
260 
499 
500 
510 
520 
530 
540 
550 
560 
570 
580 

2999 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 



REM *** DRAWING ADAM *** 

GOTO 3000 

REM *** joystick routine *** 

IP j = THEN 200 

xi = 0: yi = 0: li = 

IP PDL(1) < 10 THEN yi = -1 : GOTO 140 

IP PDIiO ) > 245 THEN yi = 1 

IP PDL(3) < 10 THEN xi = -1 : GOTO 160 

IP PDL(3) > 245 THEN xi = 1 

kol = INT(RND(1 )*50) 

RETURN 

REM *** read keyboard 

xi = 0: yi = 0: li = 

GET ke$ 

"1 " THEN kol = 1 : RETURN 

"2" THEN END 

kt$(li) THEN 



routine *"** 
kol = 



IP ke$ = 
IP ke$ = 
IP ke$ = 
li = li+l 
RETURN 
REM *** 
IP ro > 
ro < 
co > 
co < 
kol = 



IP li < 8 THEN 



= yt(ii) 
240 



xi = xt(li) : RETURN 



IP 
IP 
IP 
IP 



main drawing loop *** 

ro = 
ro = 39 

co = 
co = 39 

COLOR 



39 THEN 

THEN 

39 THEN 

THEN 
1 THEN 
PLOT co, ro 
G0SUB 100 
ro = ro+yi 
GOTO 500 

REM *** introduction *** 
TEXT: HOME 

PRINT "Are you using a 
GET jS 



= INT(RND(1 )*15)+1 



CO = CO+Xl 



IP j$ 

J = 

HOME 

PRINT 

PRINT 

PRINT 



= "Y" OR j$ = 



"y" 



joystick?" 
THEN j = 1 : HOME: GOTO 31 10 



"The direction keys are 



TAB(2); "u i 



PRINT TAB(2); "j 



o" 
1" 
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3100 


PRINT TAB(2); "m , . " 




3110 


PRINT 




3120 


PRINT "Press any key to begin." 




3130 


GET n$ 




3140 


HOME: GR: COLOR = 1 




3150 


IF j = THEN VTAB 22: PRINT "Press T to change color" 




3160 


IF j = THEN PRINT "Press '2' to end" 




3169 


REM *** initialize variables *** 




3170 


DIM kt$(7), xt(7), yt(7) 




3180 


FOR i - TO 7: READ kt$(i): NEXT 




3190 


FOR i = TO 7: READ xt(i): NEXT 




3200 


FOR i = TO 7: READ yt(i): NEXT 




3210 


GOTO 500 




5000 


DATA V',".",l,o,i,u, j,m 




5010 


DATA 0,1 ,1 ,1 ,0,-1 ,-1 ,-1 




5020 


DATA 1 ,1 ,0,-1 ,-1 ,-1 ,0,1 




Apple II and Apple He 




1 RE. 


:M *** DRAWING APPLE #■*•* 




1 i 


30 TO 3000 




99 F 


<EM ■**•* JOYSTICK ROUTINE ■*** 




1 00 


IF J " THEN 200 




1 1 X I = ; Y l ^ ;; L. I ^ 




.1.20 


IE PDL (1) < 64 THEN YI ~ - 1: GOTO 140 




1 30 


IE PDL (1) > 192 THHM YI = 1 




140 


IE PDL. CO) < 64 THEN XI -- 1: GOTO 210 




150 


IE PDL (0) > 192 THEM XI = Is GOTO 210 




199 


REM *** READ KEYBOARD ROUTINE *#* 




200 > 


' I ::::: :; Y I ~- : = L I =-• 




"> 1 i". l-'P — ptrpi.--' .' .-. 1 /."TO /I N . DHL-'C — 1 /. Ti. o ,-•, 




220 


IE KE < 128 THEN RETURN 




230 


IF KE = 177 THEN KOL =•'= KOL + 1 




240 


IE KOL > 15 THEN KOL. = 




280 


IE CHR* (KE -• 128) ~ KT* <L I) THEN YI = YTCLDrXT. = XT (LI:: R 


EfURN 


290 i 


.1 - LI +• Is IF LI < 9 THEN 280 




300 


RETURN 




499 


REN *-*-* MAIN DRAWING LOOP **•* 




500 


IE RO > 39 THEN RO - 




5 1 


IF RO < THEM RO =- 39 




520 


IF 00 > 39 THEN 00 --= 




530 


IF CO < THEN CO :.=: 39 




540 


COLOR- KOL 




550 


PLOT CO , RO 




560 


BOGUS 100 




570 F 


:0 = RO -i- YIsCG := CO ■!• XI 

r. l nTr'i r.::; .-, ,- ••. 




0999 


[::■ lt m .*. .*. ..v. r i\ i t ::.:■■ n r\ i j r~ -r r n h i u. .v. .». 




3000 


TEXT ■ Kin MP 




3010 


DDTf.1T '! ADC vnl 1 !|i?TUf."; /\ iriVfrf 'Tl--' f V / h 1 'i ""' ' ' 




3 ( ") '? 


rr; r: T i t 

'....'1..,. 1 \.) ~v 




3030 


IF J.-:|:: - "Y" T'LiEN J = 1 :: HONE r, GOTO 3160 




3040 


■|- i:t /t* iiiy" yj...|p"j\| /| - : . ; .;";. 




3050 


HOME 




;r,'i/. 1 ; _ ) 


ppTfiJT '1 '["|...!IT j'j T p j.r j" y j ' V rj i\ | I'pyvT /\pp. n 




3070 


PRINT 




3000 


PRINT TABC 6) n U ]; 0" 




3090 


PRINT TABC 6) "J L" 




3100 






3 1 1 


F : 'RINT 
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3120 


PRINT "PRESS ANY KEY TO BEGIN DRAWING. " 




3 1 30 


GET N* 




3150 


HOME 




315? 


REM *** INITIALIZE VARIABLES •**■* 




3160 


D I M KTt- ( 7 ) , XT ( 7 ) , YT ( 7 > 




3170 


KOL = 1 




3180 


FOR I = TO 7: READ KTt- ( I ) ; NEXT 




3190 


FOR I = TO 7: READ XT ( I ) : NEXT 




3200 


FOR I = TO 7; READ YT ( I ) : NEXT 




TTIO 


REM *** SCREEN DISPLAY •*** 




3220 


GR 




3230 


FOR T = 1 TO 21;: PRINT ;; NEXT T 




3240 


PRINT "PRESS '1' TO CHANGE COLOR" 




3260 


GOTO 500 




5000 


DATA " , " , " . " , L ,0,1, U , J , M 




5010 


DATA 0, 3. ,1,1 ,0 V 1 , 1 v 1 




5020 


DATA 1 , 1 ,0,-1 ,~1 ,-1 ,0, 1 




Atari 






1 RE 


M *** DRAWING ATARI *** 




9 RE 


M *** DIMENSION ARRAYS *** 




10 i: 


I'M E*(l) , Jvf: < 1 ) , J (8) ,B(0> , XT(S) ,YT(8) 




20 6 


OTO 3000 




99 R 


EM *** JOYSTICK ROUTINE *#* 




1 00 


IF J-0 THEN 210 




1 1 


L.i.=-0: Y J. =(Ji X i-~o 




1 20 


JV-STICK (0) 




1. 30 


I F 3 V=-- J ( L I ) THEN Y I ^YT ( L I 5 : X I •■■■•••■ XT (LI) : SOTO 


200 


140 


L I ^L. I + 1 




1 50 


IF LKS THEM 130 




1 99 


REM **■* READ KEYBOARD ROUTINE #*•* 




200 


X I ~--0w Y I~0: L 1=0 




2 1. 


L- _ O LT 11" L-' ! -J L. A \ 




220 


.1. I i '-. s... ■-..' --J 1 1 1 f.... ! '■! [ '. I.... i '..J 1 '-. ! ■■! 




230 


IF K>62 THEN 3170 




240 


IF !01B THEN K0---K0+1: IF !<D>3 THEN K0™~0 




'?^0 


IF i<>B (LI ) THEN YI^YT (LI ) : X I ■----• XT (L.I ) ; RETUR!*- 




260 


LI^LIM 




'"1 ~T ,"l 


IF LKS THEN 250 




2G0 


rfti irn 




499 


p!.™Pv| .j:..v..». M/VI'M nDAIilTMri 1 llf'llj .:...su..:u 




500 






5 1 


IF R0<0 THEN RO-19 




G=| •■■.•. , (") 


IF C0:>3? THEN C0™0 




530 


IF CCXO THEN C0-"39 




540 


COL. OR KG 




56 O 


PLOT' CO,RO 




570 


G Q S I. J B i. 




500 


RO---RO + YI ■ CO-CQ-i-XI 




590 


1 '....' r. 1— ,' >..j-r ,i ..:.. '..J ■-./ 




•i'i 


YI---0;: X I ---Oc LI~0 




6 1 


GOTO 500 




90-r:)c 


R EH * ■«■ * I N T R D U C "!" 1 N * *'• * 




70 OC 


PRINT CHR$ (125) 




30 3 <:: 


PRINT "PREiSS (RETURN) AFTER YOUR ANSWER. ' 




302C 


PRINT 




30 3C 


1-RJNT "ARE YD!! US 1 NO A JOYSTICK (Y/N>" 




30 4 f 


INPLU JT 




3050 


I i : ■ j * =:: " y " R J T - ■ "YES" T 1 -1 E N J - 1 ;: P R I N T C H R <\ 


( 125) ?. GOTH 3 FT.) 
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3060 IF J$---"N0" OR J*="N" THEM J=0 


30 7 C 


) PRINT CHR.f-(125) 


30 8C 


J PRINT "THE DRAWING KEYS ARE:" 


3090 PRINT 


3100 PRINT " U I 0" 


3110 PRINT !l J L" 


3120 PRINT " M , 


3130 PRINT 


3140 PRINT "PRESB (RETURN) TO BEGIN DRAWING. " 


3150 INPUT J* 


316C 


; PRINT CHR*(125> 


3169 REN ■*-*•* INITIALIZE VARIABLES *** 


3 1 7(. 


i RESTORE 


31E3C 


> K0=2:C0-»=19:R0~10 


3 1 90 GRAPH I CS 3 ; POLE 764 , 255 ; POKE: 752 ,, 2 


3199 REN *** INITIALIZE NOTION ARRAYS *•** 


320<1 


> FOR J>0 TO 7: READ Uh J ( I ) =Q: NEXT I 


32 1C 


> FOR 1=0 TO 7: READ Q: B ( I ) ^Q: NEXT I 


. 322C 


• FOR 1^0 TO 7: READ Q: XT i I ) =Q: NEXT I 


•:rO'Ti' 


> FOR I--=0 TO 7 s READ 0; YT ( I ) ^Q: NEXT I 


.... ,„, _., c 


1 REM *** SCREEN TEXT *** 


32 4C 


i PRINT " PRESS S TO CLEAR SCREEN" 


3250 


i PRINT " PRESS C TO CHANGE COLORS" 


3260 


) GOTO 500 


500( 


i DATA 10,, 14,, 6, 11,7,9, 13,5 


50 1C 


•■ DATA 11,13,8,1,0,37,32^34 


502C 


> DATA -1 , 0, 1 ; • ■'!. , 1 , ■■■'!. , 0, 1 


503C 


' »ATA -I! I, 1 1,0 ,0,1, 1,1 


Commodore 64 


1 REM *** DRAWING £4 *** 


10 GOTO 3000 


99 REM *** JOYSTICK ROUTINE *** 


100 


IF J=0 THEN £00 


110 


XI=0:YI=0:LI=0 


1£0 


JV=PEEK(563£1) 


130 


JV=15-(JVAND15> 


140 


IF JV=JS(LI) THEN YI=YT (LI ) :XI = XT (LI ) :GOTO £13 


150 


LI=LI+1:IF LI< 10 THEN 140 


199 


REM *** READ KEYBOARD ROUTINE *** 


£00 


XI=0:YI=0:LI=0 


£10 


GET KE* 


££0 


IF KEY*=""THEN RETURN 


£30 


IF KE*=CHR*<133) THEN GOSUB 400 


£40 


IF KE*=CHR*(134) THEN K0L=K0L+1 


£50 


IF KOL> 15 THEN KOL=0 


£60 


IF KE*=CHR*(135) THEN B0=B0+1 


£70 


IF B0> 15 THEN B0=1 


£80 


IF KE*=CHR*(136) THEN Bfi=BA+l 


£90 


IF BA> 15 THEN BA=i 


300 


IF KE*=KT*(LI) THEN YI=YT (LI ): X I=XT (LI ): RETURN 


310 


LI=LI+1:IF Li <8 THEN 300 


3£0 


RETURN 


399 


REM *** CHANGE CHARACTER *** 


400 


CH=CH+1 


410 


IF CH=1£8 THEN CH=£7 


4£0 


IF CH=161 THEN CH=33 


430 


IF CH=3£ THEN CH=160 


440 


RETURN 
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499 
508 
510 
520 
530 
540 
550 
560 
5712 
580 
590 
£999 

3000 

3810 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 

3100 

3110 
3120 
3130 
3140 
3150 
3159 
3i60 
3170 
3180 
3190 
3200 
3210 
3219 
3220 
3230 
3240 
3250 
3260 

5000 

5010 
5020 
5030 



REM *** MAIN DRAWING LOOP *** 

IF R0>£1 THEN RO=0 

IF RO<0 THEN R0=21 

IF C0>39 THEN CO=0 

IF CO<0 THEN C0=39 

POKE 53280, BO: POKE 53281, BA 

POKE CB+CO+40*RO, KOL 

POKE SB+CO+40*RO, CH 

GOSUB 100 

RO=RO+YI:CO=CO+XI 

GOTO 500 

REM *** INTRODUCTION *** 

PRINT CHR*<147) 

PRINT " ARE YOU USING A JOYSTICK <Y/N>?" 

GET J*: IF J*-" "THEN 3020 

IF J*="Y" THEN J=1:PRINT CHRt ( 147) :GQTQ 3160 

IF J*="N" THEN J=0 

PRINT CHR*(147) 

PRINT "THE DIRECTION KEYS ARE:" 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "PRESS 

WAIT 653, 1 

WAIT 653, 1, 1 

PRINT CHR$<147) 

REM *** INITIALIZE VARIABLES *** 

SB= 1 024 : CB=55296 : CO- 1 9 : RO= i 

BA= 1 2 : B0=9 : CH= i 60 : POKE 650, 1 28 

FOR 1=0 TO 7:READ KT*(I):NEXT 
7: READ 
7: READ 
7: READ 
SCREEN 

PRINT CHR*(19)CHR*(14A) 

FOR T=l TO 21:PRINT:NEXT 

PRINT "Fl CHARACTER 

PRINT "F5 BORDER COLOR 



TAB (6) "U 
TAB (6) "J 
TAB (6) "M 



0" 

L" 



(SHIFT) TO BEGIN DRAWING. 



FOR 
FOR 
FOR 
REM 



1=0 
1=0 
1=0 
♦ ■** 



TO 
TO 
TO 
LE 



XT(I) :NEXT 
YTU) :NEX7 
JS(I) :NEXT 
DISPLAY *** 



F7 



CHARACTER C 
BACKGROUND 



:olor" 

COLOR' 



GOTO 500 

DATA ",",". ",L,0, I,U, J,M 
DATA 0, 1, 1, 1,0, -1,-1,-1 
DATA i, i, 0, -1,-1,-1,0, i 
DATA 2, 10,8,9, 1,5,4,6 



IBM PC 

I - , I-,'!-; f.j ><-;,.->;• !' i j'v ■' . (. | J, j\; (,.. j j : < I i IJ K; , i M J. BC'I PC ¥■■¥■¥■ 

,-<< l-fj-'i ■*•** l.i I M! :: (IS I ijN L.(!!Jl: ; : ARRAYS •*** 

30 KR\ OFf- 

40 f.-lO'l I"! ; ;,O f .' 

SO I .( •:■•:( !;; Xj ::■-(); ', | ~:>.j 

'.:■>..* KF*-?- f i\!!<£ V5v. 

/O !.! :: i -,!:■. $■-■" " ! HEM RETURN 

y.) !"■■:' '■■'■■ ■*:.:::" s" THPN CIS; GOTO 470 

C r'< O" : '' ' *' ■: "J""' 1 " I" | ! rr [ .. j I.;;'; CM jT j 1 /; , ) 



').'<.:'•} i' '■-' 



e^gc* i'i 



T \ TO I 



.|\| 



.. DCTi ir.KI 



:f c:e:s then 



a. ! Ui- 
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13C 


REM *** CHANGE CHARACTER •*** 




14':: 


> CH==CH+1 




13C 


IF CH>223 THEN CLRG.69 




■I /~ i~ 


> IF CH--17J. THEN CH-32 




J.7C 


IF CH=33 THEN ChR:0.73 




! Hi" 


. RP'Tl IRN 




I 9<! 


REM #** MAIN DRAWING ! nriR ***■ 




20C 


) IF R0>23 THEN R0--1 




2 1 C 


IF R0< I THEN R0=23 




22 C 


s IF 00 < 1 THEN CO "79 




23C 


IF C0>79 THEN CO- 1 




24C 


' LOCATE R0 v C0,0 




2GC. 


PRINT CHRT (CH) ;; 




26<" 


GO SUB 30 




''.- 1 <-> I -- " 


RO-RO-i-YT •■ 00 = CO-!- XI 

1 -i "i"f"j~i "'■'("ii*) 




29C 


REM *-s-x- INTRQJJUCT'ION *•**■ 




3 >" 
3 1 C 
32'! 


SCREEN 0,0,0" NT DTi..| oq 

0!.. 8 

PRINT "THE DRAWING KEYS ARE:" 




33'" 


' PRINT 




3 4 C 


PRINT TAB (8) ; "U I 0" 




337 
•:!'.('•'!. 
3 7 <! 
3 DC 


PRINT TAB (8) ;; "J L" 
PRINT TAB OS > ; "M , 
> PRINT 

F'RINT "PRESS < ENTER > TO BEGIN," 




39 C 


R $:--: ;r j\jt r"'Y:;t: • T \~ R * ; >EHR % ( 1 : "' s 'THEM : c ?0 




4 ('.)(!' 
4 1 C 


C i .. S3 




42C 


REM **# INITIALIZE DIRECTION ARRAYS 


j. .jf. .# 


43<! 


FOR 1-0 TO 7:; READ KTT ( I ) ;; NEXT I 




44C 


FOR 1^0 TO 7: READ XT (I): NEXT I 




43<! 


FOR ]>0 TO /;:READ YT ( I ) L NEXT I 




'-!. ,'-■. !" 


hi M **■* ST: KEEN DISPLAY ***■ 




47C 


! nCA'TF 74 . 27 




48C! 


PRINT "PRESS C TO CHANGE CHARACTER"; 




49C 


LOCATE 23 , 27 




30C 


FRi"NT "-'REGS S TO CLEAR SCREEN";; 




3 1 C. 
IOC 
1 ;| 


001 V'.'O 
DATA " ., " .. " ,. " ,, L 3 , I , U j J , M 

DA"! 'A 0,1 jLRO, 1 , -0 , ••- 1 

DATA 1 I 1 ,0,-1 ,-1 ,-1 v 0, 1 




TI-99/4A 




1 F 

1 


EM #** DRAWING TI99/4A *** 
GOTO 540 




1 9 


RFM -*#* JOYSTICK ROUTINE •*** 




20 


IF J=0 THEN 140 




~T f' r 


CALL JOYST ( 1 v i v !,N) 




40 


XI--0 




15 


Y I —0 






I r — ,•-; 




70 


1 1 ■■ ' n = J I i !.... I ) T HEN 8 E L S E 1 2 




SO 


IF N-KI(LI)THEN 90 ELSE 120 




90 


X I -•■ X T ( L 1! ) 




IOC 


'■•/ r v \/ / 1 r ', 




1 1 C 
12C 
13C 


GOTO 170 

L I ■■■-■■ L I ■!■• 1 

IF L.K8 THEN 70 
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140 


X I =0 




150 


Y I =0 




160 


li=o' 




169 


REM *** READ KEYBOARD *** 




170 


CALL KEY(3,K,P) 




180 


IF P=0 THEN 190 ELSE 200 




190 


IF J=0 THEN 170 




200 


IF K=49 THEN 210 ELSE 250 




2 1 


K0==K0+1 




220 


IF KQ>6 THEN 230 ELSE 240 




230 


K.0== 1 




240 


CH==C(K0) 




250 


IF K=50 THEN 260 ELSE 290 




260 


S=S+l 




270 


IF S>16 THEN 280 ELSE 290 




280 


S==3 




290 


IF K=51 THEN 990 ELSE 300 




300 


IF K==B(LI)THE-:N 310 ELSE 340 




310 


XI-^XT(LI) 




320 


YI=XY(LI) 




330 


RETURN 




340 


LI=LI+I 




350 


IF J==l THEN 390 




360 


IF LK8 THEN 300 




370 


XI=0 




3P.O 


YI==0 




390 


RETURN 




399 


REM' *** SET DIMENSIONS *** 




400 


IF R0>20 THEN 410 ELSE 420 




4 1 


R0= 1 




420 


IF ECK1 THEN 430 ELSE 440 




430 


R0-20 




440 


IF CG>32 THEN 450 ELSE 460 




450 


C0=1 




460 


IF C0<1 THEN 470 ELSE 480 




470 


CO --=3 2 




480 


CALL SCREEN <S) 




490 


CALL. HCHAR < RQ , CO , CH , 1 ) 




500 


GO SUB 20 




5 1 


RO=--ROh-XI 




520 


C0==C0+YI 




530 


fiOTO 40(5 




539 


REN **■*■ INTRODUCTION *** 




540 


CALL CLEAR 




550 


PRINT "TYPE YOUR ANSWER" 




560 


PRINT "THEN PRESS (ENTER),," 




570 


PRINT 




580 


PRINT "ARE YOU USING A JOYSTICK" 


:; 


590 


INPUT ..:/$ 




600 


I F S E G * ( J :t , .1. , 1 ) == " Y " T i -! E N 6 1 E L S 


''::. £> ■.':.> O 


6 1 


.'! •"= 1 




620 
630 


GOTO 700 




6 5 


■_..- ! --! 1... I... L.i... !..:.!•■ 11 \ 

PRINT "THE DIRECiJ.UN KEYS ARE;" 




6 6 






,V70 


pD T KIT TAPl'Pi -HI! T nil 




A P; i"'i 


PRINT TAB (8) ; " J L" 




f-\ c ? o 


PRINT TAD(S) ; "M ,, 





129 



10 AWESOME PROGRAMS FROM K-POWER 



'700 PRINT 




710 PRINT "PRESS (ENTER) TO BEGIN. " 




720 INPUT R* 




730 RESTORE 




739 REM •**•*■ DLM.NE CHARACTERS *** 




740 A*== " FFFFFFFFFFFFFFFF " 




750 CALL CHAR ( 96 , A* ) 




760 CALL CHAR ( 1 04 , A* ) 




770 CALL CHAR ( 1 28 , A* ) 




780 CALL CHAR (136, A*) 




790 CALL CHAR ( 1 44 , A* ) 




800 CALL CHAR ( 1 52 , A$ ) 




810 CALL COLOR (9,2,2) 




820 CALL COLOR < 1 , 3 , 3 ) 




830 CALL COLOR (13,5,5) 




840 CALL COLOR (14, 7, 7) 




850 CALL COLOR (15,11,11) 




860 CALL COLOR (16,16,16) 




870 C0=16 




880 R0-=10 




890 CH==96 




9 00 H~y. 




909 REM *•** LOAD JOYSTICK AND KEYBOARD ARR 


AYS **■* 


910 FOR 1=0 TO 7 




920 READ XT( I) 




930 READ XY(I) 




940 READ Jl (I) 




9 ISO READ KT ( T ) 




960 READ B ( I ) 




970 READ C ( I ) 




980 NEXT' I 




989 R E M * *• •» SCREEN DISPLAY * * * 




990 OA! i Si EAR 




1 P R 1 N T " 1 T CHANS E P A I N T C L OR" 




'010 PRINT "2 TO CHANGE SCRY EM CO!. OR" 




1020 PRINT "3 TO CLEAR SCREEN" 




1030 R0=10 




1 '-..' 4 O ! .J U ~~ 1 6 
1050 GOTO 400 




1 060 DATA ■■- 1 ., ,, , 4 , 73 , 




1070 DATA --1 - 1 ,4,4,79 ,96 




1 080 DAT' A , 1 ,, 4 , , 76 , 1 04 




I 090 DATA 1 , 1 , 4 , 4 v 46 , 1 28 




I 1 00 DATA 1 , , , 4 , 44 , 1 36 




1 1 1 DATA 1 , 1 , -4 , -4 , 77 , 1 44 




1 1 20 DATA 0., - 1 , 4 , , 74 , 1 52 




1 1 30 DATA - 1 , 1 , -4 ,4,85,0 




Timex 1000 and 1500 




1 REM *** DRAWING TIMEX *** 




10 CLS 




20 PRINT "THE DRAWING KEYS ARE:" 




30 PRINT 




40 PRINT "5=LEFT 6=D0WN 7=UP 8=RIGHT" 




50 PRINT 




60 PRINT "PRESS < ENTER > TO BEGIN." 




70 LET K*=INKEY* 




80 IF K*="" THEN GOTO 70 




90 CLS 
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79 


REM *** INITIALIZE VARIABLES *** 


100 


LET R0=11 




110 


LET C0=15 




120 


LET CH=128 




129 


REM *** SCREEN 


DISPLAY *** 


130 


PRINT AT 20,3; 


'PRESS C TO CHANGE 


140 


PRINT AT 21,3; ' 


'PRESS S TO CLEAR 


150 


GOTO 500 




199 


REM *** READ KEYBOARD *** 


200 


LET K4=INKEY* 




210 


IF K*="" THEN GOTO 200 


220 


IF KS="S" THEN 


GOTO 90 


230 


IF K*="C M THEN 


GOTO 400 


240 


IF K*="5" THEN 


LET C0=C0-1 


250 


IF K*="6" THEN 


LET R0=R0+1 


260 


IF K*="7" THEN 


LET R0=R0-1 


270 


IF K"*="8" THEN 


LET C0=C0+1 


280 


RETURN 




399 


REM *** CHANGE 


CHARACTER *** 


400 


LET CH=CH+1 




410 


IF CH=139 THEN 


LET CH=0 


420 


IF CH=1 THEN LET CH=128 


430 


RETURN 




499 


REM *** DRAWING LOOP *** 


500 


IF C0>31 THEN 1 


_ET C0=0 


510 


IF C0<0 THEN LET C0=31 


520 


IF R0M9 THEN 1 


_ET R0=0 


530 


IF R0<0 THEN LET R0=19 


540 


PRINT AT RO,CO 


5CHR* (CH) 


550 


GOSUB 200 




560 


GOTO 500 





CHARACTER" 
SCREEN" 



TRS-80 Color Computer 

i REM *** DRAWING TRS-80 COLOR *** 

Id GOTG 1000 

99 REM *** LE JOYSTICK ROUTINE *** 

130 H=JOYSTK(0) 

110 V=J0YSTK(1) 

ISO IF H<15 THEN C0=C0-1 : RETURN 

130 IF H>45 THEN C0=C0+1 : RETURN 

140 IF V<15 THEN C0=C0-3£: RETURN 

150 IF V>45 THEN C0=C0+3£: RETURN 

199 REM *** LE KEYBOARD ROUTINE *** 

£00 LI=0 

£10 KE*=INKEY*:IF KE*="" THEN RETURN 

££0 IF KE*="C" THEN K0=KQ+1 

£30 IF K0>8 THEN K0=1 

£40 IF KE*="Z" THEN GOSUB 400 

£50 IF KE*="@" THEN CLS ( RND (8) -1 ) :GOTO 1180 

£60 IF KE*=KT*(LI) THEN CO=CO+YT (LI ): RETURN 

£70 LI=LI+1 

£80 IF LI <8 THEN £60 

£90 GOTO £00 

399 REM *** CHARACTER CHANGE *** 

400 CH=CH+1 

410 IF CH> 15 THEN CH=0 

4£0 RETURN 

493 REM *** MAIN DRAWING LOOP *** 

500 IF CQ>383 THEN C0=C0-3£*13 
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"U I 


0" 








"J 


L" 








"M , 


II 








"PRESS 


(ENTER) 


TO 


BEG I 


R* 










* INITIALIZE 


VARIABLES 



510 IF CO<0 THEN C0=C0+32*13 
520 SC=128+16*(K0-1)+CH 
530 PRINTeCO,CHR*(SC) ; 
540 ON J GOSUB 100,200 
550 IF JO 1 THEN 580 
560 FOR D=l TO 50 
570 NEXT D 
580 GOTO 500 

999 REM *** INTRODUCTION *** 

1000 CLS 

1010 PRINT "ARE YOU USING A JOYSTICK <Y/N>?" 
1020 J*=INKEY*:IF J*="" THEN 10E0 
1030 IF J*="Y" THEN J=l:GOTO 1140 
1040 IF J*<> "Y" THEN J=2 
1050 CLS 

1060 PRINT "THE DIRECTION KEYS ARE:" 
1070 PRINT 
1080 PRINT 
1090 PRINT 
1100 PRINT 
1110 PRINT 
1120 PRINT 
1130 INPUT 

1139 REM *** INITIALIZE VARIABLES *** 

1140 CLS(0) 

1150 C0=239:CH=15:K0=3 

1160 FOR 1=0 TO 7: READ KT*(I):NEXT 

1170 FOR 1=0 TO 7: READ YT(I):NEXT 

1179 REM *** SCREEN DISPLAY *** 

1180 PRINTC-423, "C=CHANGE COLOR": 
1190 PRINTG455, "Z=CHANGE CHARACTER"; 
1200 PRINTIP487, "@=CLEAR SCREEN"; 
1210 GOTO 500 

2000 DATA ", ", ". ",L,0, I,U, J,M 

2010 DATA 32,33,1,-31,-32.-33,-1,31 

TRS-80 Model III and Model 4 

1 REM *** DRAWING TRS-80 MODELS 3 AND 4 CASS. AND MODEL 3 DISK BASIC ** 
10 GOTO 1000 

199 REM *** KEYBOARD ROUTINE *** 

200 LI=0 

210 KE*=INKEY*: IF KE*="" THEN RETURN 

240 IF KE*="Z" THEN GOSUB 400 

250 IF KE*="@" THEN CLS: GOTO 1170 

260 IF KE*=KT*(LI) THEN CO=CO+YT <LI ): RETURN 

270 LI==LI + 1 

280 IF LK8 THEN 260 

290 RETURN 

399 REM *** CHARACTER CHANGE *** 

400 CH=CH+1 

410 IF CH>255 THEN CH=129 
430 RETURN 

499 REM *** MAIN DRAWING LOOP *** 

500 IF C0>832 THEN C0=C0-64*14 
510 IF C0<0 THEN C0=C0+64*14 
530 PR I NT@CO , CHR* ( CH ) ; 

540 GOSUB 200 
560 FOR D=l TO 50 
570 NEXT D 
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580 GOTO 500 






999 REM *** INTRODUCTION *** 






1 000 


CLS 








1 060 


PRINT 


"THE DIRECTION KEYS ARE:" 






1070 


PRINT 








1080 


PRINT 


TAB(8)?"U I 0" 






1090 


PRINT 


TAB (8);" J L" 






1100 


PRINT 


TAB(8);"M , 






1110 


PRINT 








1120 


PRINT 


"PRESS (ENTER) TO BEGIN. "? 






1130 


INPUT 


R* 






1140 


CLS 








1149 


REM *** INITIALIZE VARIABLES AND ARRAYS 


### 




1 1 50 


FOR I 


=0 TO 7: READ KT*(I):NEXT I 






1160 


FOR I 


=0 TO 7: READ YT(I):NEXT I 






1 1 70 


C0=478:CH=191 






1180 


PRINTH965, "Z=CHANGE CHARACTER"; 






1190 


PR I NTH 1 000 , " @=CLEAR SCREEN " ; 






1 200 


POKE 


16526, 105 






1210 


POKE 


16527,0 






1220 


PRINT 


CHR*<21) 






1230 


GOTO 


500 






2000 


DATA 


",",". ",L, 0,1, U, J, M 






2010 


DATA 


64 , 65 , 1 , -63 , -64 , -65 , - 1 , 63 





VIC-20 

i REM *** DRAWING VIC-20 *** 
13 GOTO 3080 

99 REM *** JOYSTICK ROUTINE *** 

100 IF J=0 THEN £00 
110 POKE 37154, 127 

120 X T*= PEEK (37152) OND 128 

130 POKE 37154,255 

140 XT-/.-XT'/. OR (PEEK (37137) AND127) 

150 XI==3GN(X7-/.ANDi28)-SGN<XT-/.ANDi6) 

160 YI=SGN(X75'.ANDS)-SGN(XT*AND4) 

170 GOTO 210 

199 REM *** READ KEYBOARD ROUTINE *** 

200 XJ=0:YI=0:i_:=0 
210 GET KE* 

220 IF KEY*=""THEN RETURN 

£30 IF KE*=CHR*(133) THEN GOSUB 400 

240 IF KE*=CriR*(134) THEN K0L=K0L+1 

£50 IF K0L>8 THEN KOL=0 

260 IF KE*=CHR*<135) THEN BA=BA+16 

£70 IF Bfl) i£5 THEN BA=13 

280 IF J=i THEN RETURN 

£90 IF KE*=KT*(LI) THEN YI=YT (LI ): X I=XT (LI ): RETURN 

300 i_I=LI + l:IF LI<8 THEN £90 

310 RETURN 

393 REM *** CHANGE CHARACTER *** 

400 CH=CH+1 

410 IF CH-128 THEN CH=27 

420 IF CH=I61 THEN CH=33 

433 IF CH-32 THEN CH=160 

440 RETURN 

499 REM *** MfilN DRAWING LOOP *** 

500 IF R0> 18 THEN RO=0 
510 IF RO<0 THEN R0~18 
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520 IF C0>££ THEN CO=0 

530 IF CO<0 THEN C0=££ 

540 POKE 36879, BA 

550 POKE CB+C0+££*R0, KDL 

560 POKE SB+C0+££*R0, CH 

570 GOSUB 100 

580 R0=R0-YI:C0=C0-XI 

530 GOTO 500 

£999 REM *** INTRODUCTION *** 

3000 PRINT CHR*<147) 

3010 PRINT "USING A JOYSTICK <Y/N)" 

3020 GET J*: IF J*=""THEN 30£0 

303iS IF J*="Y" THEN J=1:PRINT CHR$ ( 147) :GOTO 3160 

3040 IF J*="N" THEN J=0 

3050 PRINT CHR*<147) 

3060 PRINT "THE DIRECTION KEYS ARE" 

3070 PRINT 

3080 PRINT TAB(8)"U I 0" 

3090 PRINT TAB (8) "J L" 

3100 PRINT TAB(8)"M , 

3110 PRINT 

3120 PRINT "PRESS (SHIFT) TO BEGIN" 

3130 WRIT 653, 1 

3i40 WAIT 653, 1, 1 

3150 PRINT CHR*<147> 

JiJ3 rtCI'i **■*• ii\|l i iHLUC VHIHHOLCO *■**■ 

3 1 60 SB=7680 : CB=38400 : C0= 1 1 : R0=1 
3170 BA=£9:CH=- 160: POKE 650, 1£8 
3180 FOR 1=0 TO 7:READ KT*(I):NEXT 
3190 FOR 1=0 TO 7:READ XT(I):NEXT 
3200 FOR 1=0 TO 7:READ YT(I):NEXT 
32(39 REM *** SCREEN DISPLAY *** 
3210 PRIN"T CHR $(i44) CH R*(19) 
3220 FOR T=i TO 22 : PRINT: NEXT T 
3230 PRINT "Fl CHANGE CHARACTER" 
3240 PRINT "F3 CHARACTER COLOR 
3250 PRINT "F5 BACKGROUND COLOR" 
3260 GOTO 500 
4000 RETURN 

5000 DATA I , U, J, M, " , " , " . " , L, 
5010 DATA 0,1,1,1,0,-1,-1,-1 
5020 DATA 1,1,0,-1,-1,-1,0,1 
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BONUS PROGRAM #10 

MUSIC RECORDER 

The MUSIC RECORDER changes your computer into a computer 
t a p e r e c orde r „ E< y p r e s s i n g t h e c a m p u t e r k e y s p i c: t. u r e d 
under notes on the screen , you make up songs. When you're 
ready to record, press the key pictured next to START 
RECORDING, enter - the notes of the song, then press the key 
next, to PLAY BACK SONG, to hear the tune. When you're 
tired of hearing a tune, press the kev pictured next to 
ERASE SONG MEMORY to get rid of the song. Up to 100 notes 
can stored at one time in the recorder, If the number 
exreeda 100- the note msntory i^ erased and set at one 



Apple II and Apple He 

1 REM •*** MUSIC RECORDER APPLE *** 

1.0 GOTO 600 

1? REM *** PLAY NOTE ROUTINE ***• 

20 POKE 6,LD(T) 

30 POKE 7 , HD (T) 

40 POKE s F(T) 

50 CALL SOU 

60 IF F < > 1 THEN RETURN 

70 IF C > 99 THEN 400 

80 NH<C) -» T 

90 C == C ■!■ 1 

100 RETURN 

199 REM *## RECORD NOTE ROUTINE *** 

200 F »■■ 

210 FOR B ■■■-■ 1 TO C 1 

220 T ™- NHCB) 

230 GO SUB 20 

240 NEXT 8 

■..>UU '"' j. / 

310 GET NT 

320 IF W$ = KBT-(T) THEN G0CUP 20 

330 T = T - 1 

1 THEN 3:20 

T J7 j\J -Ij.: ;: ~ " p" "|" ! -j j-' |\j j"" ::::: 1 

IF NT ■■- "S" THEN 200 



GUI 3U!. 



THf. GOTO 

too j.:_f • K-j .j,,. « j! E'"RC| r T MP'rf" Pi''"'- ! " ( " >' i'j |'~ ■¥■ -~ »■ 

400 FOR X -~ TO 100 



420 NEXT X 

440 GOTO 300 

599 R r :. M * * ■*■ I N I "!" I A L I Z E V A E I A B !. . ?: ' 

600 HOME r, SOU : " : - 7 '.:•■!; 

6 1 X :::: 1 "/ : -: 1 

620 D IN HD < X ) , L.D ( X ) - F ( X ) 
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630 


DIM KB$(X) ,MH(105) 




640 


FOR X = TO 17 




650 


READ F ( X ) , HD < X ) , LD ( X ) 




660 


READ KBf(X) 




670 


NEXT X 




679 


RFM •**-* SCREEN DISPLAY ■*■** 




680 


FOR CO = 7 TO 16 STEP 2 




690 


FOR RO = 2 TO 19 




700 


CI = 11:02 = 16: GOSUB 740 




7 1 


CI == 16: C2 = 23: 60SUB 740 




720 


CI •» 23:C2 --• 28: GOSUB 740 




730 


CI = 28: C2 = 29: GOSUB 740: GOTO 800 




740 


FOR CO = Cl TO C2 STEP 2 




750 


FOR RO = 2 TO 13 




760 


HTAB CO: VTAB RO 




770 


INVERSE s PRINT " "; 




780 


NORMAL : PRINT " "; 




790 


NEXT RO: NEXT CO: RETURN 




800 


PRINT : HTAB 11: INVERSE : PRINT SPC ( IS) 




8 1 


NORMAL : HTAB 1 1 :; VTAB 1 




R?n 


PR I NT " C#D#EF#G#A#BC#D#EF " 




830 


VTAB 15 




840 


PRINT TAB( 1 1) "Q2W3ER5T6Y7UI900PC:" 




850 


PRINT 




860 


PRINT TAB( 9)"'B' TO BEGIN RECORDING" 




870 


PRINT 




880 


PRINT TAB( 9)" 'S' TO PLAY BACK SONG" 




R90 


PRINT 




900 


PRINT TAB ( 9)"'X" TO ERASE SONG MEMORY" 




909 


REM ■*** POKE SOUND ROUTINE **•* 




CJ i I'; 


FOR X - SOU TO SOL.) + 22' 




920 


READ A 




930 


o n >■■■' Lr v a 




940 


NEXT X 




950 


GOTO 300 




1 ooc 


p. /\ t A i "7 /i f t •"'.'' "?■ \j s"\ i /. •" .--, o a a "i -i •-■: l" n ■'"'. '-"; '■■.. : , ; ■! ,1 z?. i .-■; 


I ,-, i.38 ,, i , 15 E 


1 1 c 


n/\TA 1 ~rr. 1 '-.'-■/ 1.-1 1 "v-r -i /.<•-, '"-; 1 i /. i =-,=: i" ■: nn i 71 /, 


I 03 . 1 . 90 Y 


102C 


Pi A T A Q •'•■ 1 "11 i'\ ""' < -J ' - 1 1 'i " : -' '""■ ! ' n "7 I ■! i ■-: e:; T cs 1 -i I p ("-, " 


~,y ., ■-.■,,■■,,-., p 
/ .. ... 7 ..... .... ■_■ j .... 


■i /"VTi" 


p /\ t /•■. " v ':■ 1 "i -t cr (-•, /.. 1 '■".". =r. '- /. '-. ■■■."■ T ,■-) r 




1 04C 


p /\ T A O -T ("i "7 ■; /.. /. /.. 1 /.. /! p "1 -7 -."!" ,'l i"j 1 O --J ' ".» -::' /l 




105C 


[1ATA '?■■!" /1 '■r.'r/i (Ti 'TT'Q " r -1 •"'. "fi'" 1 T-ria '•■:.,:'-> 




i 06 C 


'"1 f\ '[' r '- 1 ^ ° "7 ^' •'"•. ! "> '"• ! "^ r: ' (■'? -'•■ 




Atari 


M * * * M U 3 I C R E C Q R D E ! -V A "'" A R I * * *■ 




(■:, r) r" 


OTO 600 

n-.vi :■?. %!..j(. ;' : ''LA'\' NO if!. ?\OUT'>. NF ^••** 




J. 

•1 ! l' - t 


IF NV(T)" : THEN 300 
r 1 r ") ; f't * " i -i ,. r: - 1 r. ~r' ' i ' "t 




J. JL. '-> 

1 20 


I . it [ i...j i ... l % " l I. .. ..... ! ' ;: / 

t p c r ■- i tlj !.-;• ;\i n -l .'"'■ » ''" !■"' ! -"" ■•■' "■■•'! " j " l-l '■'" h ! P -- ■"'■ 




1 30 


SOUND ., NV ( '!"? , 1 4 ,, 15 




1 40 


r-Qf; DIJR = 1 TO D + UO; NFX'.' D! 'F ;: 




•! l::j,'i 


SOUND ,, ■, ■:, : COLQR 




160 


PLOT T,7 

I F F < .:•• 1 T ! ■ ! E N P K E 7 64,255 ;: R E "!" U R N 

IF C>99 THEN 400 




180 




i 90 


NH (C) -'!":: C-C + 1 ;; RETURN 




199 


REM **■* RECORD NOTE .ROUTINE ***■ 




200 


F=0 
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210 FOR B=l TO C-1 




220 T=NH(B) 




230 GOSUB 100 




240 NEXT B 




299 REM *** READ KEYBOARD ROUTINE *** 




300 T^2S 




310 K>PEEK<764) 




320 IF K"255 THEN 310 




330 IF K~B(T> THEM 60SLJB 100 




340 T=T-1 




350 IF T>-9 THEN 320 




360 IF K=33 THEN F-^l 




370 IF K=23 THEM 200 




380 IF !<>22 THEN 400 




390 POKE 764,255: GOTO 300 




400 FOR X=-0 TO 100 




410 NH ( X ) =~0 




420 NEXT X 




430 Ol 




440 GOTO 300 




599 REM *** INITIALIZE VARIABLES *** 




600 X»29;C»1 




609 REM **# DIMENSION ARRAYS *•#*• 




610 DIM Mv ( X ) i B ( X ) , NH < 1 00 ) 




620 POKE 752 , 2 




630 G3RAPHIGS 3 




640 PRINT CHR$(125) 




650 FOR X--=il TO 28 




660 READ Q ; NV ( X ) ~Q s READ Q ; B ( X ) =Q 




670 NEXT X 




679 REM 




/. Q (-> r~ n p r> p -- -i s -r p "J o 
k.j o './ ) \..t i y -~i l.' ■*- .i. j. i -.J s. . '..j 




/_ o f"-i >::■ r." /\ r\ p p !.-•• p 




700 col... of;: ko 




710 PLOT CO, a 




720 DRAWTG CO , RO 




730 NEXT CO 




7 4 P R I N T ' ! Q 2 W 3 E R 5 T 6 Y 7 i J I 9 C P " 




750 PRINT "SPACE BAR TO BEGIN RECORDING" 




760 PRINT "PRESS Z TO PLAYBACK SONG" 




//O POKE 752,2 




'I POO '0A"!'Y> ■! p i Z|.*7 •> ■; 4. " : -'p -i aq /)./.. ■> pp p/.. p/., /i p p •> /;.f"i . pp 


■"V' <:. . o -i ,-'i p 
•I ■•■■ ■' v '-' •'■ '.- ' -- 


1 1 DATA 76 ,27 , 72 ., 43 .,- 68 , 5 1 , 64 , 1 1 , 60 , 1 3 , 57 , 40 7 53 ,8,5 


;"'! 1: -;p :0 "7 " ! Ci .# ';"■■ *■ 4. 




, .,:: , J. / , -..:■ ,, .i. -....■ , .,::. , ... / -, .i. 


Commodore 64 




1 REM *** MUSIC RECORDER £4 *** 




10 GOTO 600 




19 REM *** PLAY NOTE ROUTINE *** 




£0 POKE CB+T+9+40*l, 1 




30 POKE S0U+E4, 15 




40 POKE SQU+5,64 




50 POKE SOU+6, 64 




60 POKE SOU+4, 33 




70 POKE SQU+1,HF(T) 




60 POKE SOU, LF(T) 
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90 FOR DUR=1 TO 75 

100 NEXT DUR 

110 POKE CB+T+9+40*l,0 

1£0 IF FOl THEN RETURN 

130 POKE S+£4, 

140 POKE SOU, 

150 POKE SOU+1,0 

160 IF C>99 THEN 400 

170 NH(C)=T 

180 C=C+1 

190 RETURN 

199 REM *** RECORD NOTE ROUTINE *** 

£00 F=0 

£10 FOR B=l TO C-l 

££0 T=NH(B) 

£30 GOSUB £0 

£40 NEXT B 

£99 REM *** READ KEYBOARD ROUTINE *** 

300 T=19:P0KE S+£4,0:POKE SOU, 0: POKE SOU+1,0 

310 GET N*:IF N*=" "THEN 300 

3£0 IF N*=KB*(T) THEN GOSUB £0 

330 T=T-1 

340 IF T> 1 THEN 3£0 

350 IF N*=CHR*(133) THEN F=l 

360 IF N*=CHR*(134) THEN £00 

370 IF N*=CHR$(135> THEN 400 

380 IF N*=CHR*(136> THEN 500 

390 GOTO 300 

399 REM *** ERASE NOTE ROUTINE *** 

400 FOR X=0 TO 100 
410 NH(X)=0 

4£0 NEXT X 

430 C=l 

440 GOTO 300 

499 REM *** CHANGE SCREEN COLOR *** 

500 S=S+1 

510 IF S=19 THEN S=£ 

5£0 POKE SCSC(S) 

530 POKE BC, BC(S) 

540 GOTO 300 

599 REM *** INITIALIZE VARIABLES *** 

600 CB=55£96:SB=10£4:SOU=54£7£ 
610 X=££ : C= 1 : S=£ : SC=53£8 1 : BC-53£80 
619 REM *** DIMINSION ARRAYS *** 
6£0 DIM HF(X),LF(X),C(X), Y(X),SC(X) 
630 DIM KB*<X),BC(X) ,NH(105) 

639 REM *** SCREEN DISPLAY *** 

£40 PRINT CHR$(147) 

650 POKE SC, l£:POKE BC, II 

660 FOR X=£ TO 19 

670 READ HF(X),LF(X),C(X), Y(X) 

680 READ KB* ( X ) , SC ( X ) , BC ( X ) 

690 NEXT X 

700 FOR CO=£ TO 19 

710 FOR R0=3 TO Y(CQ)+1 

7£0 POKE CB+CO+9+40*RO, C(CO) 

730 POKE SB+CO+9+40*RO, 160 

740 NEXT RO 

750 NEXT CO 
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800 


PRINT CHR$(19)CHR*(144) 


810 


PRINT 


820 


PRINT TAB (11) "C#D#EF#G#A#BC#D#EF" 


830 


FOR X=l TO 12 


840 


PRINT 


850 


NEXT X 


860 


PRINTTAB (11) "W3E4RT6Y7U8IO0P+I?*" 


870 


PRINT 


880 


PRINT 


890 


PRINTTAB (9) "Fl TO BEGIN RECORDING" 


900 


PRINT 


910 


PRINTTAB (9) "F3 TO PLAY BACK SONG" 


920 


PRINT 


930 


PRINTTAB (9) "F5 TO ERASE SONG MEMORY" 


940 


PRINT 


950 


PRINTTAB (9) "F7 TO CHANGE SCREEN COLORS" 


960 


GOTO 300 


1000 DATA 16, 195, 1, 13, W, 15, 13, 17, 195,0, 11,3,9, 11 


1010 DATA 18, £09, 8, 13, E, 11, 1£, 19,239, 0, 11,4, 11, 13 


1020 DATA 21,31,2, 13, R, 10, 15,22, 96,5, 13, T, 11, 15 


1030 DATA 23, 181,0, 11,6, 9, 11,25, 30,6, 13, Y, 15, 9 


1040 DATA 26, 156, 0, 11,7, 9, 14, 28, 49, 4, 13, U, 14, 11 


1050 DATA £9,223,0,11,6,12,15,31,165,3,13,1,10,10 


1060 DATA 33, 135, 1, 13, 0, 9, 13, 35, 134, 0, 1 1, 0, 10, 12 


1070 DATA 37, 162,8, 13, P, IS, 14,39,223,0, il,+, 11, 15 


1080 DATA 42,62,2, 13, i?, 9, 15, 44, 193, 5, 13, *, 14, 11 


IBM PC 


I RE 


.11 ss* (il.lS 12 RECORDER IBM PC *** 

EY OFF 


20 t 

90 f 


iO"| 60U 

.'f~|-'i ■**■* P| AY NOTE ROUTINE ■*** 


1 oo 


:i.f nv < i ;• -^o i hen 300 


.1 :l. 


LOCATE 4, I : PRINT CHE* <2) ; 


1 20 


FOR V)EI...Av~l. TO :!.0:NEXI DECAY 


:i. 30 


SOUND NO ( I ; , 5 


.1 40 


I.. OCA' IE 4, 1 


1 50 


F'RJN"! CNR* (32) ; 


160 


I F- F < > 1 1 HEN RE I URN 


1 70 


IF" C>99 THEN 4O0 


:l 7 9 

1 £j<"\ 


REM **■* RECRRD NOTE **■* 

Mi.) , i "■ \ ..... 1 


1 90 


1 ■!. r 1 '■. I...- ) — \ 
C-C+l - RE"! URN 


200 


LL. 


' 2 1 


FGR B--I 10 (2-1 


2 2 


RNIFI (B) 


2 3 


GOSUB 1.00 


..:.'' 40 


NEXT B 


• ; o o 


REM ■*•** RE.Ai) KEYBOARD ROUI INE *•** 

j' :-;■ /i o 


3 1 


N*=~ I NH.E Y * : I F FFR- " ! ' I'HEN 300 


3 2 


IF N:J:-EBi! r OH THEN GOSUB 100 

T — r , ... 1 


340 


IF I >30 UIFN 32',' 


350 


1 F \- 1 * :■:■■■ C |- ■! E 4 ( 3 2 ) T H E N F ~ 1 


■.*.*■ ?~ii ) 


IF 14*^" Z" ! HEN 200 


370 


IF m~-"\" IHEI-I 4 00 


380 


i.-j'.J ! ■:'•'..!',' 


399 


REM **■*■ ERASE NO'IES ROUTINE **■«• 
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10 AWESOME PROGRAMS FROM K-POWER 


400 FOR X--0 TO 100 


410 NFI(X>-0 


420 NEXT X 


430 Ol 


440 GOTO 300 


599 REM *** INITIALIZE VARIABLES **■* 


600 X~49 : C- 1 : SCREEN , , : W I D'T'H SO 


610 DIM N V ( X ) , KB* ( X ) , NH < 1 00 ) 


620 CI...S 


629 REM *** LOAD NOTE AND KEYBOARD ARRAYS *■** 


630 FOR X-31 TO 48 


640 READ NV<X),KB*Cx> 


650 NEXT X 


659 REM *■** SCREEN DISPLAY' **# 


660 FOR 00 = 31 TO 4 8 


670 READ V ,, (...: i 1 


6S0 FOR E0=5 TO v 


6 9 L C A 1" E R , C , 


700 PRIN'l CHR* (CH) ; 


710 NEXT RO 


720 NEXT CO 


7 30 LOCATE 5,31 


740 PR I NT " C#D#EF #G#A#BCttD*TEF " ; 


7 50 LOCATE 19,31 


760 PRINT "Q2W3ER5T 67 7UI900PL " ; 


7 70 LOCATE 2 1 ,26 


780 PRINT "SPACE BAR TO BEGIN RECORD 


790 LOCATE 23,2:6 


800 PRINT "PRESS I TO PLAYBACK SONG"; 


810 LOCATE 25., 26 


820 PRINT "PRESS X TO ERASE SONG MEMORY"; 


R'XC) GO l O "■'-,< ';< '! 


1 000 DA T A 262 , , 2 7 7 , 2 , 294 , W „ 3 1 1 , 3 , 330 , E , 349 , R 


1010 DA TA 370., 5,392, '! ,, 4 3.5 , 6 , 4 40 , V , 4i>6 ,7 ,491 ,0,523, I 


1 020 DA 1 A 554 , v „ 56 7 , O , 622 , „ 659 ,, P , fo98 , I 


1 030 DA 1 A 1 7 , 1 7 8 , 1 4 , 2 1 9 ,17,176,14,2 1 9,17,1 7 8 , 1 7 ., 1 7 6 


1 040 DA T A 1 4 , 2 :i. 9 , .1. 7 , 1 73 , .1. 4 ,219,17,176, 1 4 , 2 1 9,17,178 


1050 DATA 17 ,17 6,1 4 ,219, 17 , 1 78, 14, 21 9, 1 7 , 1.7 6 , 1 7 , 1 73 


TI-99/4A 


i REM *■** MUSIC RECORDER 1199/4.0 *•** 


9 REM •*** D I MEMS TOM NOTE ARRAYS **■* 


1 ',) D 1 11 H <-. 1 00 ) „ Q ( 26 ) , V ( 26 ) , 17 ( 26 ) , CH (175) 


.C..IJ \J\.J 1 \.r -...! V.-' 

29 REM **•* PI. fn NOTE RON CINE *■** 


30 IF 9 < 1 ,' -O THEN .ISO 


TO CALL. MCNAR (3, 1 „88> 


50 CALL.. SOUND < 1 00 , V < T ) , ) 


6 C A L L \ T C l-l A R \" 3 .-, T , 3 -3 ) 


69 REM *■** RECORD NOTE *** 


70 IF FOl THEN 80 ELSE 90 


80 RETURN 


90 IF C>99 THEN 300 


100 H<C)-T 


110 C™C ■•!•■.! 


120 RETURN 

....... ,.j. — . 


.1. ->-..' r ■-■- \j 

140 FOR B-.I. TO C- 1 


150 T~H(B) 
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10 AWESOME PROGRAMS FROM K-POWER 



160 


G0SUB 30 


170 


NEXT B 


180 


T=25 


189 


REM *** READ KEYBOARD *** 


190 


CALL KEY(3,K,P> 


200 


IF P-O THEN 190 


2 1 


IF K=Q < T ) THEN 220 ELSE 230 


220 


G0SU6 30 


230 


T = 7-l 


240 


IF T>6 THEN 200 


250 


IF K==32 THEN 260 ELSE 270 


260 


F = l 


2 70 


IF K=83 THEN 130 


280 


IF K~68 THEN 300 


290 


GOTO 180 


299 


REM *** ERASE NOTES *** 


300 


FOR >'--0 TO 100 


3 1 


H < X ) -0 


320 


NEXT X 


330 


c-i 


340 


GO 10 180 


349 


REM **■* DEFINE CHARACTERS *•** 


350 


ft*~ " FF FF FFF F F F FFF FF F " 


360 


CALL CL EAR 


370 


B*^ " 2424F F 2424F F 2424 " 


380 


C*" " 00C324 1 8 1 1 1 1 " 


390 


X : ~26 


400 


c-i 


4 1 


CtiL 1... CHAR (£38, A* > 


420 


Cf ILL. CHAR i. 33 , A# .' 


430 


FOR X=8 T'O 25 


439 


REM ■*•** LOAD ARRAYS **■* 


440 


READ VU) , < X .) H CI ■! ( X ) , R < X ) 


450 


CALL CHAR ( OH < X > ,A*> 


4<b0 


NEXT X 


470 


CALL CHAF ; ; (.96.B+'; 1 


480 


CALL CHAR < 42, C*> 


490 


FOR X==8 TO 16 


500 


READ F,B 


5 1 


CALL COLOR C X , F . B ) 


52n 


NEX T K 


530 


CALL.. COLOR ( 1 , ; 3,3. ! 


539 


REM ***• SCREEN DISPLAY *•*■* 


540 


CALL. CI. .EOF 


550 


PR INI IhB (6.) ; ,: C#D#EF#6#A#BC#D#EF" 


560 


FOP :<■--]. 10 1.3 


5 /(.) 


PR INI 


580' 


NEXT a 


590 


P R I N 1 L -i B (. 6 .) ; " Q 2 W Z E R 5 T 6 v . :i lJ 1 9 P 1. " 


600 


PRINT 


6 1 


PR. NTT 


620 


PRINT " PRESS SPACEBAR TO RECORD" 


63-0 


PR I II 1 


640 


PR INI " PRESS S TO PLAY BACK SONG" 


650 


PRIM! 


66!' i 


PRTN! " PRESS 10 ERASE SONG" 


6 / O 


FOR A •■--8 10 25 


68u 


Cm!, i UfT ||->R (. 4 , X , CM ' * r s R '. X ) ) 


6 Vu 


NEXT .-'• 
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10 AWESOME PROGRAMS FROM K-POWER 



700 GOTO ISO 




710 DATA 262,61,104,11,277,50,97,9,294,87,112,11 




720 DATA 3-1. 1. ,51,9 7,9,330,69, 120, 11 




730 DA TA 349 , 82 , 1 28 , 1 1 , 3 70 , 53 , 97 , 9 , 392 , 84 , 1 36 , 1 1 




740 DAT A 415,54,97,9, 440 , 89 ,144,11, 466 , 55 , 97 , c i' 




750 DA T A 494 , 85 , 1 52 , 1 1 , 523 ,73,1 04 , 1 1 , 554 , 57 , 9 7 , 9 




760 DA T A 587 779 , 1 1 2 , 1 1 , 622 ,48,97,9, 659 „ 80 , 1 20 , 1 1 




7 70 DATA 698,47, 128, 1 1 




780 DATA 16,16,2,1,5,5, 7,7,8,8,11,11,14,14,15,15,1?: 


>, 10 


TRS-80 Color Computer 




1 REM »»♦ MUSIC RECORDER TRS-BlZi COLOR *♦» 




10 GOTO 600 




99 REM »♦» PLAY NOTE ROUTINE »♦* 




100 IF NV(T)=0 THEN 300 




110 PRINT GT, CHR* (143+16) ; 




120 SOUND NV(T),3 




130 PRINT i? T,CHR*<143>; 




140 PRINT © T,CV*(T) ; 




150 IF FOl THEN RETURN 




160 IF C>99 THEN 400 




170 NH(C)=T 




180 C=C+1 




190 RETURN 




199 REM *»* RECORD NOTE ROUTINE *»» 




£00 F=0 




£10 FOR B=l TO C-l 




££0 T=NH(EO 




£30 GOSUB 100 




£40 NEXT B 




£99 REM »»» READ KEYBOARD ROUTINE *»» 




300 T=24 




310 N*=INKEY*:IF N*=" M THEN 300 




3£0 IF N*=KB*(T) THEN GOSUB 100 




330 T=T-1 




340 IF T>5 THEN 3£0 




350 IF N*=CHR*(3£) THEN F=l 




360 IF N*="Z" THEN £00 




370 IF N*="X" THEN 400 




380 GOTO 300 




399 REM »»* ERASE NOTE ROUTINE »»» 




400 FOR X=0 TO 100 




410 NH(X)=0 




4£0 NEXT X 




430 C=l 




440 GOTO 300 




599 REM »*» INITIALIZE VARIABLES »** 




600 X=£5:C=1 




609 REM »*» DIMENSION ARRAYS »»» 




610 DIM CV$(X),KB*(X),NH(100),NV(X> 




6£0 CLS 




630 FOR X=7 TO £4 




640 READ NV(X),CV*(X),KB*(X> 




650 NEXT X 




699 REM *** SCREEN DISPLAY *** 




700 FOR C0=7 TO £4 




710 PRINT i?CO, CV*(CO) ; 




7£0 PRINT @C0+2£4, KB*(CO) ; 




730 NEXT CO 
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10 AWESOME PROGRAMS FROM K-POWER 


740 READ X,Y, KO 




750 IF KO=0 THEN A=128 




760 IF KOO0 THEN A=143 




770 IF X=-l THEN 820 




780 FOR RO=X TO Y STEP 32 




790 PRINT@RO,CHR*<A+KO> ; 




800 NEXT RO 




810 GOTO 740 




820 PRINT0321, "SPACE BAR TO BEGIN RECORDING"; 




830 PRINT&385, "PRESS Z TO PLAYBACK SONG"; 




840 PRINT0449, "PRESS X TO ERASE SONG MEMORY": 




850 GOTO 300 




1000 DATA 89, C,Q,99, #,£„ 108, D, W, 117.#, 3, 125 T E, 


E 


1010 DATA 133, F,R, 140, #,5, 147, G, T, 153, #, 6, 159, 


A,Y 


1020 DATA 165, #,7, 170, B, U, 176, C, I, 180, #,9 




1030 DATA 185, D, 0, 189, #, 0, 193, E, P, 197,F,@ 




1040 DATA 39,199,16,40,168,0,41,201,32 




1050 DATA 42,170.0,43,203,48,44,204,64 




1060 DATA 45,173,0,46,206,80,47,175,0 




1070 DATA 48,208,96,49,177,0,50,210,112 




1080 DATA 51,211,16,52,180,0,53,213,32 




1090 DATA 54,182,0,55,215,48,56,216,64 




1100 DATA -1,-1,-1,-1,-1,-1 




VK-20 




1 REM *** MUSIC RECORDER VIC-20 ♦*♦ 




10 GOTO 600 




99 REM *** PLAY NOTE ROUTINE ♦♦♦ 




100 POKE CB+T+££*0. 1 




110 POKE V, 15: POKE S3, NV(T) 




120 FOR DUR=1 TO 100:NEX7 DUR 




133 POKE CB+T+££*0. 




150 IF FOl THEN RETURN 




160 IF C>99 THEN 400 




170 NH(C)=T 




180 C=C+1 




190 RETURN 




199 REM *** RECORD NOTE ROUTINE *** 




£00 F-0 




£10 FOR B=l TO C-l 




£20 T=NH(B) 




£30 GOSUB 100 




£40 NEXT B 




£99 REM *♦♦ READ KEYBOARD ROUTINE ♦** 




300 T=19:P0KE S3. 




310 GET N*:IF N*=" "THEN 300 




320 IF N*=KB*(T) THEN GOSUB 100 




330 T=T-1 




340 IF T> 1 THEN 320 




350 IF N*=CHR*(133) THEN F=l 




360 IF N*=CHR*(134) THEN £00 




370 IF N*=CHR*<135> THEN 400 




380 IF N*=CHR*(136) THEN 500 




390 GOTO 300 




399 REM *** ERASE NOTE ROUTINE *♦♦ 




400 FOR X=0 TO 100 




410 NH(X)=0 




420 NEXT X 




430 C=l 
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10 AWESOME PROGRAMS FROM K-POWER 



440 


GOTO 300 


499 


REM *** CHANGE SCREEN COLOR *** 


500 


S=S+1 


510 


IF S=19 THEN S=2 


520 


POKE SC,SC(S) 


530 


GOTO 300 


599 


REM *** INITIALIZE VARIABLES *** 


600 


CB=38400 : SB=7680 : S3=36876 


610 


V=36878 : SC=36879 : X=££ : C= 1 : S=2 


620 


DIM NV<X),BC(X), Y(X),SC<X) 


630 


DIM CV(X),KB*(X),NH(100),NC(X) 


639 


REM *** SCREEN DISPLAY »** 


640 


PRINT CHR*(147) 


650 


POKE SC, 190 


660 


FOR X=2 TO 19 


670 


READ NC(X),NV(X),BC(X), Y<X) 


680 


READ CV(X),KB*(X),SC(X) 


690 


NEXT X 


700 


FOR C0=2 TO 19 


710 


FOR RO=l TO Y<CO)+l 


720 


POKE CB+C0+22*R0,BC(C0) 


730 


POKE SB+C0+22*R0, 160 


740 


POKE CB+CO+22*9,0 


750 


POKE SB+CG+2£#9,CV(C0) 


760 


POKE CB+CO+££*0. 


770 


POKE SB+CO+££*0,NC<CO> 


780 


NEXT RC 


790 


NEXT CO 


800 


PRINT CHR*(19)CHR*(144) 


810 


FOR X=l TO 11 


820 


PRINT:NEXT 


830 


PRINT "Fl TO BEGIN RECORDING" 


840 


PRINT:PRINT 


850 


PRINT "F3 TO PLAY BACK" 


860 


PRINT:PRINT 


870 


PRINT "F5 TO ERASE MEMORY" 


880 


PRINT: PRINT 


890 


PRINT "F7 TO CHANGE COLORS" 


900 


GOTO 300 


1000 DATA 3, 195, 1,6, £3, W, 159,35, 199,0, 5, 51,3, 173 


1010 DATA 4,201,7,6, 5, E, 174,35,203,0, 5, 52,4, 175 


1020 DATA 5, £07,2, 6, 18, R, 188,6,210, 5,6,20,1, 189 


1030 DATA 35, 212, 0, 5, 54, 6, 190, 7, 215, 6, 6, £5, Y, 203 


1040 DATA 35, 217,0, 5,55,7,204, 1,219, 4, 6,21, U, £05 


1050 DATA 35, ££1, 0, 5, 56,8, £18, £, ££3, 3, 6, 9, I, £19 


1060 DATA 3, 225, 1, 6, 15, 0, 220, 35, ££7, 0, 5, 48, 0, £53 


1070 DATA 4, £28, 7. 6, 16, P, £34, 35,229, 0, 5, 43, +, 235 


1080 DATA 5, 231,£, 6,0, 5, £5£, 6, £3£, 5, 6, 42, *, 250 
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